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Add these routines to your CAD 
(Computer Aided Design) listing to 
improve its sophistication and give 
an enormous boost to your drawing 
and design skills 




The Computer Aided Design (CAD) 
program on page 566 showed how you can 
put your computer's high-resolution graphics 
under keyboard control and allowed you to 
construct some sophisticated outline draw- 
ings. But there are several functions still 
required to give the program its full 
potential — notably the ability to fill in with 
colour. You'll have seen these additional 
options on offer on the menu, but as yet, you 
won't have been able to access them. 

LOAD the program from the first article, 
then key in the additional lines given here. 
There is of course no section for the Vic 20, 
because the entire program was given in the 
first article. Each section of program is fol- 
lowed by notes on using the new facilities and 
there is a further guide for Vic users. 



4000 REM rectangle and box 

4010 LET box = 0: GOTO 4030 

4020 LET box = 1 

4030 FOR n = 1 TO 50: NEXT n 

4040 GOSUB 8000 

4050 IF INKEY$ = CHR$ 13 THEN 

RANDOMIZE USR 65380: GOTO 11 
4060 IF INKEY$< >CHR$ 32 THEN GOTO 

4040 
4070 FOR n = 1 TO 50: NEXT n 
4080 LET xx = 0: LET yy = 0: LET hx = x: LET 

hy = y 
4090 GOSUB 8000: FOR n = 1 TO 2: PLOT 

hx,hy 
4100 DRAW OVER 1;0,yy:DRAW OVER 

1;xx,0: DRAW OVER 1;0,-yy: DRAW 



OVER1;-xx,0: NEXT n 
4110 IF INKEY$< >CHR$ 32 THEN GOTO 

4090 
4120 PLOT hx,hy: DRAW 0,yy; DRAW xx,0: 

DRAW0,-yy: DRAW -xx,0 
4130 IF box = THEN GOTO 4030 
41 35 IF xx = TH EN GOTO 4040 
4H0 FOR n = hx TO hx + xx STEP SGN xx 
4150 PLOT n,hy: DRAW 0,yy: NEXT n 
4160 GOTO 4040 
5000 REM circle 
5010 FOR n = 1 TO 50: NEXTn 
5020 GOSUB 8000 
5030 IF INKEY$ = CHR$ 13 THEN 

RANDOMIZE USR 65380: GOTO 1000 
5040 IF INKEY$oCHR$ 32 THEN GOTO 

5020 
5050 FOR n = 1 TO 50: NEXTn 
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5060 LET xx = 0: LETyy = 0: LET hx = x: LET 

hy=y 
5070 GOSUB 8000: CIRCLE OVER 

1;hx,hy,ABS xx: CIRCLE OVER 1;hx,hy,ABS 

xx 
5080 IF INKEY$oCHR$ 32 THEN GOTO 

5070 
5090 CIRCLE hx,hy,ABS xx: 

GOTO 5000 
5500 REM erase 
5510 GOSUB 8000 
5520 IF POINT (x,y) = 1 THEN PLOT OVER 

1 "X v 

5530 IF INKEY$ = CHR$ 13 THEN 

RANDOMIZE USR 65380: 

GOTO 1000 
5540 GOTO 5510 
6000 REM copy 
6010 COPY: GOTO 1000 
7000 INPUT "ENTER NAMED"; LINE n$: IF 

LENn$>10 THEN GOTO 7000 
7010 LOAD n$CODE 50000: RANDOMIZE 

USR 65368: GOTO 1000 
7500 INPUT "ENTER NAMED"; LINE n$: IF 

n$ = "" OR LEN n$ > 1 THEN GOTO 

7500 
7510 SAVE n$SCREEN$ : GOTO 1000 

Select the RECTANGLE option, and move 
the cursor to one corner of the rectangle you 
wish to draw, then press [SPACEj. Move to the 
diagonally opposite corner. As you move, the 
rectangle will flash on the screen, so you can 
adjust its size and shape merely by moving the 
cursor. When you are satisfied, press |SPACE| 
again to fix its position. 

The BOX option is as RECTANGLE, 
except that the area inside is filled. 

CIRCLE is the other shape you can draw. 
Move the cursor to where you wish the centre 
of the circle to be, then press [SPACE| . Next 
move to any poi nt on th e circumference of the 
circle and press I SPACE I again. 

The COPY option lets you send a screen 
image to a ZX printer. Select the option and 
respond to the prompts on the screen. After 
copying, the display returns to the menu. 

To correct errors or change areas of the 
image, use either ERASE or OOPS. You can 
erase small detail by moving the cursor over it 
to remove a pixel at a time. After erasing, 
press lENTERl to return to the menu. 

For more extensive changes, select OOPS. 
This will automatically clear everything you 
have done since you last visited the menu. 

The two last items on the menu are SAVE 
and LOAD (to or from tape only). When you 
select either option, you are prompted to 
supply a file name. You can LOAD withou t 
specifying a file name, by pressing I ENTER I , 
but you must supply a name to SAVE. 



170 IFA$ = CHR$(135} THEN 540 
180IFA$ = CHR$(136)THEN590 
190 IF CO < 4 AND A$ = "P" THEN PAINT 

XY + 1 CO 
260IFA$ = "R"THENF = 6:XX = X: 

YY = Y 
280 IF CO < 4 AND F = 6THENL1NE 

XX,YY,X,Y,C0:CO = 4 
300IFA$ = "B"THENXX = X: 

YY=Y:F=1:C0 = 4 
320 IF (F = 1 AND A$ = "D") AND C0<5 

THEN GOSUB 490 
330IFA$ = "E"THENXX=X: 

YY=Y:F=2:C0 = 4 
340 IF (F = 2 AND A$ = "D") AND C0<4 

THEN CIRCLEXX,YY,ABS 

(X-XX),ABS(Y~YY),CO:F = 
370 IF A$ = "C" THEN XX = X: 

YY = Y:F = 4:C0 = 4 
380 IF (F = 4 AND A$="D") AND C0<4 

THEN CIRCLEXX,YY,ABS 

(X-XX),ABS(X-XX),CO:F = 
410IFA$o"T"THEN440 
420 GET A$:IFA$ = "" THEN 420 
430 TEXT X,Y,A$,4,1,1 
490IFYY>YTHENYT=YY: 

YY=YY-ABS(YY-Y):Y=YT 
500IFXX>XTHENXT=XX: 

XX=XX-ABS(XX-X):X = XT 
510 BLOCK XX, YY,X,Y,CO:F = 0: 

C0=4:RETURN 
540 NRM:NM$ = "":INPUT "RENTER NAME 

TO SAVE";NM$:IF NM$ = "" THEN 130 
550 GOSUB 610:IFIN$ = "D" THEN 

NM$="@:" + NM$ 
560 POKE 24432,LEN(NM$):P0KE 24388,0V 
570FORZ=1TOLEN(NM$):POKE 

24432+Z,ASC{MID$(NM$ J Z,1)):NEXT 
580 SYS 24379:GOTO 130 
590 NRM:NM$ = "":INPUT "QENTER NAME 

TO L0AD";NM$:IF NM$ = "" THEN 130 
600 GOSUB 610:LOAD NM$,DV,1:END 
610 IN$ = "":INPUT"D(T)APE OR 

(D)ISC";IN$ 
620 IF IN$ = "0" THEN DV = 8: 

RETURN 
630IFIN$ = "T"THENDV=1: 

RETURN 
640 GOTO 610 

The earlier part of the program includes the 
Draw facility, with the step options, to draw 
polygons, such as triangles, rectangles and 
pentagons. But now you can obtain these 
straight line shapes better if you use Line, 
instead. To draw a triangle, for example, 
move the cursor to where you wish one of the 
corners to be and press [t]. Next, move the 
cursor to the second corner, select a colour in 



which t^draw and press the space bar. 
Without maving the cursor, press jj] again to 
fix the start m the next line, then move to the 
third corner. Seftct a colour and fix the line as 
before, then draw flte third. 

The line flashes aWou move (until you 
select a colour), so it is srW>le to plan the size 
and shape of the triangle, or any polygon. 

The Circle option is given ^Jc]. Move to 
where you wish the centre of thetircle to be 
and press \C\. Now move to a poiHLon the 
circumference of the circle (you carr\move 
only horizontally or vertically). When you are 
satisfied with the size of the circle, select a 
colour for the circle and press the space bar. ^ 

If you are used to the CIRCLE command on 
the Commodores, you will not be surprised 
that the shape is not circular, but elliptical. In 
fact, to draw true circles, as well as ellipses, 
you need to use Ellipse. Move to the centre of 
the ellipse — where the two axes meet — then 
press |T|. Move away from this point so that its 
vertical distance from the cursor is half one 
axis, and its horizontal distance is half the 
other. Now select a colour and press the space 
bar to draw the ellipse. After a few attempts, 
you will be able to judge the length each axis 
should be so that you get any ellipse or circle. 

Specifying the size of the ellipse may take a 
little getting used to at first. Suppose you 
want an ellipse that is 150 mm long and 
100 mm high. Move the cursor away from the 
centre half the length of each of these axes — 
75 mm to left or right and 50 mm up or down. 

The Radial lines facility goes well with 
Circle or Ellipse. Draw either of these shapes, 
then move to the centre and press [Rj. Now 
you can move to any point on the circum- 
ference, select a colour and press the space bar 
to fix a radius — a line between the centre 
point and the new cursor position. Without 
moving back to the centre, you can fix any 
number of radii, each to the first point. 

The last of the shapes in this program is 
Block, which draws a filled-in rectangle. Move 
to any point on the screen and press [j0 to fix 
one corner of the block. Move to another 
point to fix the diagonally opposite corner, 
then select a colour and press the space bar. 

If you wish to colour any enclosed shape on 
the screen, then Paint is useful. Move to any 
point within the shape, then select a colour. 
Now press [P] to colour the shape. 

Adding text to your graphics is a simple 
matter. Move to where you wish to place each 
character and press [TJ, then key the character. 
It will be printed in the inverse of the colour 
on the screen. Repeat for each character. 

You have a choice of methods for correct- 
ing errors. One of these is to press ISHIFTl and 
|CLR/H0ME| together, when the screen clears 
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completely and you can start afresh. A less 
drastic method is to delete an area of screen, 
using Block in the background colour. To 
delete even smaller areas — a line or point, 
say — use Draw in the background colour. 

A more powerful method of correcting 
errors is to press key [7j] while drawing. This 
copies the image at that moment to a section 
of memory. If you make an error, or are 
dissatisfied with what you have drawn since 
pressing [fT], press [f3] to recall the previous 
screen you stored. When using the program 
for the first time, press key Jf) to prepare the 
area of memory used to store the image. 

Press QTJ then [f5] to SAVE the image you 
have drawn on to tape or disk. To use this 
facility, press the key and respond to the 
prompts on the screen. When you are asked 
for a file name, you can abort the saving 
routine by pressing | RETURN . 

To LOAD an image from disk or tape, press 
[fT], then respond to the prompts. After 
loading, press |f3] lo call up the image. 



The program appeared with the first part of 
this article, but senile of its facilities have not 
been examined in detail. You may already 
have worked out one of the two methods of 
correcting errors. To correct small areas, 
select the background colour ( 1 ) and move the 
cursor to draw over the points to be deleted. 
Only if the image you have drawn is unsatis- 
factory, or no longer needed, will you wish to 
use the second method — to delete the entire 
screen. You can do so by pressing |SHIFT| and 
[CLR/HOME J together. 

To draw outline shapes, such as rectangles 
and triangles, use the variable step facility. If 
you select the normal step (key 5), you can 
move with the control keys to draw a rec- 
tangle, for example, in which each side is 
made up of a large number of lines. As you 
select larger steps, you will be able to draw a 
rectangle in which each side is made up of a 
single line. Select the step, move (holding 
[SHjfTj) to the first corner of the rectangle, 
then draw the first side, by pressing the 
control key for the direction in which you 
wish to draw. Release the control key when 
the side is the length you require. Press 
another control key to draw an adjacent side, 
and so on, until the fourth side is drawn. 

Alternatively, use Line to draw straight 
lines in any direction. Move the cursor to 
where you wish the line to start, then press the 
arrow key at the top, left-hand corner of the 
keyboard to fix the cursor position. Move to 
where the line should end, then press [RETURN | 
to draw the line. If you move to another 
position and press [RETURN], a line will be 



drawn from the original starting position to 
this point. 

Using this method, you can draw any 
number of radial lines — to form the spokes of 
a wheel, for example. If you wish to draw a 
line from a different starting position, move 
to the new point, then press the arrow key. 

To draw circles and ellipses, move to a 
point and press the arrow key to fix the centre. 
Move the cursor so that its distance above or 
below the centre is half one axis of the ellipse, 
and its distance to the left or right of the 
centre is half the other axis. (If you find this 
confusing, there is a fuller explanation in the 
Commodore 64 section). Now press \C\ to 
draw the ellipse. When both axes are equal, 
the shape should be a circle, but it does not 
appear so — due to the asymmetrical arrange- 
ment of the pixels. But with practice, you will 
be able to judge the length of each axis so that 
a circle is drawn. 

The last facility of this program lets you fill 
enclosed areas of screen. Simply move to a 
point within the area, select a colour (1 to 4), 
then press |T] to fill it in. 



660 IF NOT INKEY-99 THEN ENDPROC 

670 MOVEX2,Y2;MOVEX3,Y3 

680 PLOT85,X,Y 

690X3 = X2:X2 = X:Y3 = Y2:Y2 = Y 

700 IF INKEY-99 THEN 700 

730 VDU5 

740MOVEX,Y + 32 

750 1 = INKEY(I) 

760 IF 1 = 13 THEN VDU4:A2$ = 

A3$:ENDPR0C 
770IFI<32QRI>127THEN750 
780 VOU I 

790 IF 1 = 127 THEN X=X-32: GOTO 750 
800X = X + 32:GOTO750 
840 IF NOT INKEY -99 THEN ENDPROC 
850 XR =X2 - X:YR = Y2 - Y 
860 MOVE X2 + XR.Y2 
870 FOR T = TO 2' PI + .02 STEP .05 
880 DRAW X2 + XR*COS(T),Y2 + YR*SIN(T) 
890 NEXT 

900 IF INKEY -99 THEN 900 
980TC = C:C = GET-48 
990!FC>9THENC = C-7 
1000 (FC<0 OR C>MC THEN 1040 
1010GCOL0,C 
1020 PRINTTAB(20,0)"COLOURD"; 

(/"□" 
1030 GOTO 1060 
1040 C = C + 55:IF C > 1 29 AND C<140 

THENA3$ = CHR$(C) 
1050 C = TC 
1060 A2S = A3$ 

1090 IF NOT INKEY -99 THEN ENDPROC 
1100MOVEX,Y2:PLOT85,X2,Y: 



I 



PLOT 85,X2,Y2 
1110 IF INKEY-99 THEN 1110 
1 1 20 X3 = X2:X2 = X:Y3 = Y2:Y2 = Y 
1150 IF NOT INKEY -99 THEN ENDPROC 
1160DRAWX,Y2:DRAWX2,Y2: 

DRAWX2,Y:DRAWX,Y 
1170 IF INKEY-99 THEN 1170 
1180X3 = X2:X2=X:Y3 = Y2:Y2 = Y 
1205 S0UND1, -15,0,10 
1210*LOAD"PIC" 
1215 S0UN01. -15,150,20 
1255 S0UND1, -15,0,10 
1260ONM + 1 GOTO 1270,1270, 

1270,0,1300,1300 
1270 *SAVE"PIC" 3280 8000 
1280 GOTO 1305 
1300"SAVE"PIC" 5940 8000 
1305 S0UND1,- 15,1 50,20 



SAVE the new program in case of mishaps, 
then RUN it to test your new options. 

To select a colour in which to draw, press 
[f6], when 'Change colour' will appear on the 
screen. Enter a value from up to the 
maximum permitted for the mode selected. If 
you selected mode 2, where you have a choice 
of 16 colour effects, to 9 give the first ten 
colour effects and A to F give the next six. 
The number of the colour you select appears 
after 'COLOUR' at the top of the screen. 
Then the display will show the drawing 
option you were using before you pressed [f|] 
(in this case Point). 

The movement of the cursor, either with or 
without the Draw option, can be speeded up 
by a f actor of two, four or eight. Hold down 
CTRL | while pressing any of the arrow keys to 
give twice normal speed, | S H I FT | for four times 
normal speed or [CTRL] and |SHIFT| together for 
eight times normal speed. If you use Draw at 
more than normal speed, then a dotted line 
will be drawn — the faster the speed, the 
farther apart the dots appear. 

The Triangle option is selected by [f2]. First 
select Point, [f0], and establish two of the 
corners of the triangle. If you don't set new 
points, then the last two points visited by the 
cursor will be selected. Then change the 
drawing colour, if you wish, then select 
Triangle. Move to the third corner of the 
triangle, and press the space bar to fill a 
triangular area of the screen. 

To use the Text option, move the cursor to 
where you wish the bottom left of the first 
character to app ear and p ress |§J, Key your 
text, then press I RETURN I , when the display 
will return to the previous drawing option. 

To use the Ellipse option, [f4], select [ffl] 
and establish a centre point about which to 
draw the ellipse. If you do not wish a dot to 
appear on the screen, select colour before 
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pressing the space bar to establish the centre. 
Now move the cursor away from this point to 
fix the size and shape of the ellipse. The 
distance of the cursor above or below the 
starting point is half the height of the vertical 
axis, and the distance to the left or right of it is 
half the width of the horizontal axis. If the 
distances in both directions are equal, then 
the shape will be a circle. Change the colour to 
the one you want then press the space bar to 
draw the ellipse. 

The Box option, [17], lets you fill a rectan- 
gular area of screen. Move to one corner and 
press the space bar while in point mode |f0|, 
then move to the diagonally opposite corner 
and press again in box mode [f7]. 

The Frame option, [f8], works as Box, 
except that you only get the outline. 

There are no delete options, but you can 
use the Change colour option, \j§\, together 
with the drawing options, such as Point, Line, 
Draw and Triangle, to delete either small 
detail (using Point) or larger areas of the 
screen. To delete a rectangular area, say, set 
colour 0, then fill it, using Point and Frame. 

The last two facilities offered by this 
program are SAVE and LOAD, using either a 
tape or a disk system. To save a screen, do not 
End by pressing [t9]. Instead, prepare the disk, 
or set the tape recorder to record. Now press 
[CTRL] and [s], when a low pitched beep will 
sound to signify saving has begun. When 
saving is complete, a high pitched beep will 
sound. Apart from this, you cannot check that 
saving is satisfactory, so ensure your volume 
and tone controls are adjusted properly. 

To Load the screen back into memory, 
press | CTRLj and [Uj (a low toned beep will 
sound), then play the tape. 

4000 SCREEN1,ST:GOSUB1500 
4010IFEF = 1 GOSUB500:RETURN 
4020 IFPEEK(345) <>PC THEN4000 
4030XS = X:YS = Y 
4040GOSUB1500:GOSUB500 
4060 IFEF = 1 THENRETURN 
4070IFABS((XS-X)*(YS-Y))> 

23000 THEN 4040 
4080 LINE(X,Y) - (XS,YS} ; PSET,B 
4090 IFPEEK(345) <> PC THEN 4040 
4100 PM0DEMD,5:GET(X,Y) - (XS,YS), 

CP,G:PM0DEMD,1 
4110XS = XS-X:YS = YS-Y 
4120GOSUB1500:GOSUB500 
4130 IFEF = 1 THENRETURN 
4140IF(X + XS)<0OR(X + XS)>255 

OR(Y+YS}<0OR(Y + YS)>191 

THEN4120 
4150LINE(X,Y)-(X + XS,Y + YS), 

PSET,B 



( 



4160 IFPEEK(345)oPCTHEN4120 
4170 GOSUB500:PUT(X,Y)-(X + XS, 

Y + YS),CP,PSET:GOSUB510 
4180GOTO4120 
5000 CLS:PRINT"DSELECT THE BORDER 

COLOUR (0-8) ?" 
5010A$ = INKEY$:IFA$<"0"OR 

A$>"8"THEN5010 
5020BC=VAL(A$):SCREEN1,ST 
5030GOSUB1500:GOSUB500 
5040 IF EF = 1 THENRETURN 
5050 IFPEEK(345) <> PC THEN5030 
5060 PA1NT(X,Y),CL,BC:GOSUB510: 

GOTO5030 
6000 CLS:PRINT"DSAVE OR LOAD FROM 

TAPE (S/L) ?" 
6010 A$ = INKEY$:!FA$o"S"AND 

A$o"L"THEN6010 
6020 IF A$ = "S" THEN 6100 
6030 PRINT'DARE YOU SURE YOU WISH 

TO LOADD □ □ ANOTHER PICTURE 

(Y/N) ?" 
6040 A$ = INKEY$:IF A$o"N"AND 

A$o"Y" THEN 6040 
6050 IF A$="N" THEN RETURN 
6060 M0T0R0N:PRINT:PRINT 

"D POSITION TAPE, PRESS PLAY AND 

□ □□THEN PRESS ENTER." 
6070 IFINKEY$oCHR$(13)THEN6070 
6080 M0T0R0FF:PRINT:INPUT 

"INPUT THE FILE NAMED";A$ 
6090SCREEN1,ST:CLOADMA$: 

GOSUB510:RETURN 
6100 PRINT:INPUT"KEY FILE NAMED";A$ 
6110MOTORON:PRINT:PRINT 

"□POSITION TAPE, PRESS RECORD AND 

THEN PRESS ENTER." 
6120 IFINKEY$oCHR$(13)THEN6120 
6130 GOSUB500:CSAVEM A$,1536, 

7679,1 536:RETURN 

^ i ' | | ^ 

Spectrum Colours 

You can use the complete listing to do 
colour drawings on the Spectrum micro, 
but take care to avoid problems of 
overlapping colours. If you place more 
than two colours on each character square, 
the last colour will overwrite the previous 
one. Plan your image so that adjoining 
colours are aligned with the character 
squares. As a guide, these are in 32 blocks 
of eight squares across and 22 blocks of 
eight squares from top to bottom of the 
screen. 



The Rectangle option lets you draw rect- 
angles in various colours at any place on the 
screen. Select the option, then move to a point 
on the screen where you want one corner of 
the rectangle to be. Press the space bar to 
select this point. Now move the cursor to the 
diagonally opposite corner of the rectangle, 
and watch the shape change as you move. As 
with Draw and Line, you can select colours, 
or abort (by pressing [ENTER]). When you are 
satisfied with the shape and size of the 
rectangle, press the space bar to draw it. 

Box works just as Rectangle, except that 
the interior is filled with the colour in use. 

Circle and Disc are like Rectangle and Box: 
the first point you select lies on the circum- 
ference. Then you move the cursor, noting 
the size of the shape, to the second point, 
which is at the centre. Disc is a filled in circle. 

In use, Ellipse is slightly different from 
Circle and Disc. The first point you select is 
the centre. As you move the cursor either up 
and down or left and right away from the 
centre, you will see only a straight line, but if 
you move it right, then up or down, or left 
then up or down, it starts to grow an ellipse. 
Once you have selected the centre, move in 
various directions away from the centre and 
you will see an ellipse flashing on the screen, 
then press the space bar to fix it. 

The Copy option lets you duplicate the 
image that you have already drawn on one 
part of the screen, on to another part of the 
screen. To use this option, move the cursor to 
one corner of the area to be copied, then press 
the space bar. Now as you move the cursor to 
the opposite corner, you will see a rectangle or 
square flash on the screen. Select the area (by 
pressing the space bar) when you are satisfied 
with its size and shape. Move the area to the 
new site (using the arrow keys) and press the 
space bar to copy it, blotting out what was 
already on the screen. You can copy as much 
as a half of the screen, but the area to be 
copied must be totally within the screen. 

The Fill option works just as the BASIC 
PAINT command. When you select it, you are 
asked to supply the colour at which the PAINT 
will stop. You should then move to the area to 
be filled and press the space bar. The PAINT 
colour can be changed, using keys to 8. 

To correct your mistakes, there is an Error 
option, which erases everything you have 
drawn since your last visit to the main menu. 
You can, however, erase fine detail by first 
selecting the background colour. In fact, you 
can use this method with Box or Disc to erase 
larger areas of the screen image. 

The last option lets you Load or Save an 
image with a tape system: connect the recorder r^ 
and respond to the prompts on the screen. 
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CUSTQ 




FUNCTION 



There are no BASIC functions for 
things like cubes, compound 
interest, or capital letters. But many 
computers enabfe you to create 
special functions when needed 




Your computer can do a great number of 
things — especially those involving mathemat- 
ical calculations — much faster than you can 
yourself. But it can only do what it is told: 
either by you, in a program that you type in 
yourself, or by someone else, whose program 
you LOAD into your computer. 

The most common language that people 
use to program their micro is BASIC, the 
language into which all the computers 
covered here automatically go at switch-on. 
And your computer has various functions 
built into its standard BASIC: functions like 
SIN, COS, SQR and many others. Each of these 
is defined in such a way that your computer 
knows how to recognize the command and 
perform the appropriate operation on a given 
value — calculating its sine, cosine, square 
root, or whatever. 



BASIC FUNCTIONS 



This is all very well — so long as the functions 
you want to use in your program are also 
BASIC keywords for your computer. But 
many common functions are not part of the 
standard BASIC — there is no function called 



CUBE for example, which will automatically 
tell you the value of x*x*x. If a function you 
want to use frequently is not available, you 
have a number of options. You can devise a 
way of avoiding the use of the function in 
your program; you can add a subroutine 
which works out the function that you want; 
or, most elegantly of all, you can employ the 
user-definable function facility of your com- 
puter. This option is not open to users of the 
ZX81. But on the Spectrum, BBC B and 
Electron it is often a very neat way around a 
problem. The Commodore 64, Vic 20, 
Dragon and Tandy also have the facility, 
although it is rather more limited. 

User-definable functions literally give you 
the capacity to tailor your computer's BASIC 
to suit the needs of a particular program. The 
command which actually defines the function 
is slightly different for each computer, but 
takes this basic form: 



the letters in brackets are the parameters 
which the function uses but there are not 
necessarily only two of them. The Spectrum 
and Acorn can have several, but the Commo- 
dore 64, Vic 20, Dragon and Tandy can only 
use one parameter in each function. 

To see how the general principle works in 
an actual program, type in and RUN this 
example. This defines the very simple func- 
tion mentioned above — it gives you the cube 
of a number. 



10CLS 

20 PRINT "NUMBER'Y'CUBE" 

30 FOR a = 1 TO 20 

40 PRINT a,FN c(a) 

50 NEXT a 

60DEFFNc(x) = x*x*x 



a 



DEFFNa(x,y) = ... 
function to do) 



(whatever you want the 



Here, the letter a is the name of the function 
(which you will need in order to call it up) and 



20CLS 

30PRINT"NUMBER'V'CUBE" 
40 FOR A = 1 TO 13 
50 PRINTA,FNC(A) 
60 NEXT 
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70 END 

80 DEF FNC(X) 

90 = XXX 

10DEFFNC(X)=XTX 

30 PRINr'NUMBER'V'CUBE" 

40 FOR A = 1 TO 13 

50 PRINTA,FNC(A) 

60 NEXT 

An interesting point to note is that in the 
Acorn and Spectrum programs, the computer 
never actually reaches the program lines 
which DEFine the FunctioN. In this way, they 
are like DATA statements: the computer uses 
them without actually having to RUN through 
them. This is not true for the Commodore 64, 
Vic 20, Dragon and Tandy, which must read 
the DEF lines. The Spectrum searches for the 
DEF statements starting at the beginning of 
the program, each time the function is called. 
So in a long program it is best to group all the 
DEF FN lines at the start. The Acorns' DEF FN 
lines must not be RUN and should be grouped 
after END. 



CALLING A FUNCTION 



You call a function quite simply: by placing 
the keyword FN and the name of the function 
wherever you want the number which results 
from the function. You can see this from Line 
40 in the Spectrum program, Line 50 in the 
Acorn program, and Line 50 in the Commo- 
dores, Dragon and Tandy version. In the 
given example, the program uses FNC(A) — 
notice that Spectrum syntax requires the form 
FN c(a) — where A is the number you want 
cubed. If you wanted to design your own 
program to use this function, you would just 
use FNC(A), or FN c{a), anywhere you would 
otherwise have put a "a* a. 

The same principle applies to any other use 
of a defined function — the call can effectively 
be treated as a form of shorthand for the 
calculation itself, whatever it may be. 

For such a simple function as the example 
above, you might think it is quicker to use the 
power function already built into your 
computer's BASIC. In fact, even in this 
example it is actually quicker to call the 
function (or to multiply the number by itself 



several times), if the power is only three or 
less. And of course, DEF FN is capable of 
handling far more complex calculations than 
this example. 

Although you would not normally want to 
use a function for this simple type of calcul- 
ation, you can learn how DEF FN works on 
your computer by experimenting with your 
own changed versions of the last program. 
Try modifying it to define new functions to 
divide numbers by 10, multiply by two 
thousand or work out the SINe. Then use the 
maths functions which your computer already 
has in its BASIC. If you want to check that 
you have defined the function correctly you 
can compare it with what you get when the 
computer works out the answer as a direct 
command. 

While experimenting, it is useful to under- 
stand how DEF FN actually works on your 
computer. 



FUNCTION NAMES 



Each function you define has to have a name 

that you use to call the function for use in __ g 



your programs. 



The name is a letter, or collection of letters, 
which is placed immediately after the DEF FN 
like this: DEF FNacorn (which starts to define a 
function called acorn). The Spectrum name 
must be just one letter. The Commodores can 
have one or two. 

The Acorn has no real limit on how many 
letters this name can contain: if you want, you 
can DEFine a FunctioN with a name hundreds 
of letters (or numbers) long. 

The same is also true of the Commodores, 
Dragon and Tandy, but they only count the 
first two characters. The first character of 
each name, though, must be a letter. 

So although names such as ACORN would 
be allowed, the Commodores, Dragon and 
Tandy would not be able to tell the difference 
between it and 'ACTOR' or any other name 
beginning AC. The Acorn, on the other hand, 
would differentiate between the two. 



DEFINING PARAMETERS 



The next step in defining your function is 
adding the 'parameters'. These are the num- 
bers or letters in brackets after the name of the 
function. While they may look like variables, 
they are not (except on the Commodores) but 
they are so similar that they are sometimes 
called 'dummy variables'. 

All they do is tell the computer that the 
function will use that many numbers from the 
program in its calculations. In other words, if 
you start off your DEF FN like this: 

DEF FNexarnple (a,b,c) 

then the computer expects three numbers 
from the program itself. So, when calling or 
using the function in your program you 
would include three numbers, or variables, in 
brackets (how you actually use your defined 
functions is explained below). 

While the parameters are not variables, you 
can look on them as such; in fact they are a 
form of local variable. They take the same 
form in the DEFinition as they do in the 
brackets after the name. So you might see: 

DEF FNexarnple (a,b,c) =a*b"c 

On the Spectrum and Acorn you can also have 
parameters which are strings; string functions 



are explained later in this article. 

As the parameters are not ordinary vari- 
ables, you can quite happily use variables and 
parameters with the same names, if you wish 
to, without fear of the computer harming the 
values of either. 



HOW MANY PARAMETERS: 



As with the names, the Commodores, Dragon 
and Tandy's DEF FN facility is less versatile 
than the other computers': it only allows one 
parameter. All other numbers used in the 
function must be actual numerical values that 
are present in the definition itself. 

So, suppose you wanted to multiply a value 
by 9.81 as part of your function. You could 
use a parameter a for the value that is going to 
be changed by the function, and also use 9.81 
in the definition. 

The Spectrum and Acorn computers allow 
you to use as many parameters as you want. 
However, once you have set up a series of 
parameters in brackets in the DEF FN state- 
ment, you must include the same number of 
variables or numbers when you use the 
function. Even if you have allowed for more 
parameters than you actually want to use, you 
must still give values for them when you call 
the function. Type NEW and then this 
program to see this in practice (there is no 
Commodore, Dragon or Tandy program, 
since the point does not apply). 



10DEFFNa(a,b,c,d,e,f) = aVb 
20 PRINT "please input two numbers" 
30 INPUT a,b 
40 PRINT FNa(a,b) 

If you RUN this program, you will find that it 
does not work. But if you replace 
Line 40 with this: 



40 PRINT FNa(a,b,0,0,0,0) 

then suddenly it works, 
although you are not 
using any more 
information, 




WHY USE A FUNCTION] 



When is it better to use a function rather than 
just a direct instruction in a line? 

The obvious advantage of using a defined 
function, rather than working out a set of 
calculations, is when you want to use the same 
calculation a large number of times. You can 
save both memory and time by having a user- 
defined function. 

This is useful with long equations, or 
mathematical functions which you are going 
to use a lot in your programs. Here is an 
example, which rounds off a number (which 
you INPUT) to the number of decimal places 
which you specify, also by INPUTting a num- 
ber. Since the function needs two parameters, 
it is only suitable for the Spectrum and 
Acorns. 



10 FOR g = TO 1 STEP0 

20 PRINT '" "Enter the number to round off, 
and the number of decimal places you 
want."" "Please press ENTER after each. . ." 

30 INPUT number, places 

40 PRINT "' number; "DtoD"; places; 
"Dplaces is", FN R(number, places) 

50 PAUSE 100:NEXTg 

60 DEF FN R(a,b) = INT (a'10Tb + 0.5)/10Tb 



10 REPEAT 

20 PRINT'" "Enter the number to round off, and 

theD D number of decimal places you 

want."" "Please press RETURN after 

each " 
30 INPUT' NUMBER, PLACES 
40 PRINT"; NUMBER; "□ton"; PLACES; 

"Dplaces is "; FNROUND(NUMBER, 

PLACES) 
50W=INKEY(200) 
60 UNTIL 
70 DEF 
FNROUND(A,B) = INT(A*1 a B + 0.5)/1 a B 

The DEFined FunctioN uses another function 
inside itself: the INT function, which converts 





any number into an integer, or whole number. 
This shows an interesting point about user- 
defined functions: you can define a function 
to include results from other ROM, and user- 
defined, functions. But you cannot use a 
function in its own definition except with the 
Acorn computers. Whereas you can GOSUB to 
a subroutine from within itself, a function 
cannot call itself when it is being defined. 
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The Commodores, Dragon and Tandy, 
although they have only one parameter, can 
make good use of their user-defined function 
facility, too. Type in and RUN this program, 
which DE Fines a FunctioN to work out the 
equation of an ellipse. You'll need Simons' 
Basic for the Commodore and the Super 
Expander Cartridge for the Vic. 

When you RUN it, you will need to INPUT a 
few values, after which the program uses the 
function to plot two ellipses. 



BEE 



10 DEF FNY(X) = SQR(B'R"R-B , X , X/A) 
40 PRINT "□INPUT CONSTANTS 

AANDB": INPUT A,B 
50 PRINT "INPUT THE TWO 

RADII":INPUT R1,R2 
60R = R1:Y1=FNY(0):R = R2: 

Y2 = FNY(0) 
70IFY2>Y1 THEN Y1 =Y2 
80IFY1>100THENR1=R1"100/Y1: 

R2 = R2"100/Y1 
90 HIRES 0,1 

100 FOR K= -159 TO 159 
1f0IFB*m"R1<BXK/ATHEN130 
120 R = R1:PL0T K + 159,100 

+ FNY{K),1:PL0T K + 159,100- FNY(K),1 





130IFB*R2"R2<B'K'K/ATHEN150 

140 R = R2:PL0T K+159,100 
+ FNY(K),1:PL0TK + 159,100- 
FNY(K),1 

150 NEXT 

160 GOTO 160 

For the Vic 20, you should make a few 
changes to the Commodore version. First, 
replace the number 100 in Line 80 with 51 1 . 
Then, replace the HIRES 0,1 in Line 90 with 
GRAPHIC 2. The FOR . , . NEXT loop in Line 
100 should be FOR K = - 51 1 TO 51 1 , and not 
- 1 59 T0 1 59. Again, in Line 120 and 140 the 
number 1 00 and the number 1 59 should be 
replaced by 511. On Lines 120 and 140 
change PLOT to POINT, delete the last ,1 and 
insert 1, after POINT. With these changes, the 
program will RUN on the Vic. 

10DEFFNY(X) = SQR(B*R*R- 

B'X'X/A) 
20 PM0DE3,1 
30 PCLS 
40 CLS:INPUT" INPUT CONSTANTS A AND 

BrT""A B 
50 INPUT"'lNPUT THE TWO RADIID";R1,R2 
60R = R1:Y1=FNY(0):R = R2: 

Y2 = FNY(0) 
70 IF Y2>Y1 THEN Y1 =Y2 
80IFY1>95THENR1=R1*95/Y1: 

R2 = R2*95/Y1 
90SCREEN1,0 
100 FOR K= -127 TO 128 
110 IF B*R1*RKBXK/ATHEN 130 
1 20 R = R1:PSET(K + 127,95 + 

FNY(K),2):PSET(K + 127,96 

-FNY(K),2) 
130IFB*R2*R2<B*K*K/ATHEN150 
140 R = R2:PSET(K + 127,95 + 

FNY(K),3):PSET(K+ 127,96 

- FNY(K),3) 
150 NEXT 
160 GOTO 160 

The programs use the familiar Commodore, 
Dragon and Tandy graphics commands to 
draw the ellipses, using the function defined 
in Line 10 to work out the coordinates for 
each ellipse. As with the Spectrum and Acorn 



programs above, it uses another function in its 
definition: the computer's SQR function. 

In case you may want to convert this 
program for the Spectrum or Acorn, here is 
the equation used to find the coordinates of 
the ellipse: 



xx y y 

— +-r- = 
a b 



;r r 



In it, x is the x coordinate, and y the y 
coordinate, of each point on the circum- 
ference: r is the radius (in fact the program 
uses two values for r — R1 and R2, one for each 
ellipse), a and b are two constants, which you 
INPUT in the program. 



SSTRING FUNCTIONS 



As well as just numeric functions, the Acorn 
and Spectrum both also have string functions. 
You might be wondering what use a string 
function might have: type NEW, then this 
short program, and RUN it, to see. 



10 PRINT "Please ENTER your name!" 
20 INPUT n$ 

30 IF CODE n$>90 THEN LET n$ = FN 
u$(n$) 

40 PRINT " "Hi, "; n$; "-aren't I clever?" 
90DEFFNu$(x$) = CHR$(CODE 
x$-32) + x${2TO) 



10 PRINT'PLEASE ENTER YOUR NAME" 

20 INPUTN$ 

30N$ = FNLC{N$) 

40 PRlNT""HI, ";N$;"-AREN'T I CLEVER" 

50 END 

90 DEF FNLC(X$) 

95 X$ = CHR$(ASC(LEFT$(X$,1)) AND 

&5F} + RIGHT$(X$,LEN(X$)-1) 
100 F0RT=2T0 LEN(X£):A$ = MID$(X$,T, 

1): IF A$<"A" OR A$>"Z" THEN 120 
1 1 X$ = LEFT$(X$,T- 1 ) + CHR$(ASC(A$) 

OR &20) + RIGHT$(X$,LEN(X$) -T) 
120 NEXT 
130 =X$ 






This program lets you INPUT a name, and 
then calls a user-defined string function to 
print out the first letter in capitals, the rest in 
lower case. (In fact the Spectrum INPUT is 
normally in lower case, so it capitalizes the 
first letter, while the Acorn version is norm- 
ally in capitals, so it changes the rest of the 
word to lower case.) 

User-defined string functions work in just 
the same way as numeric functions, except for 
the name of the function on the Spectrum, 
Instead of having a numeric variable name, 
they must have a string variable name. When 
you call the function, instead of using FN and 
a numeric name, you use FN and the string 
name. 

The function can also have string para- 
meters, which are used in just the same way as 
numeric parameters. You must of course put 
strings in the brackets after the FN when you 
call the function, if you do use string 
parameters. 

To see this in practice, here is a routine 
which uses a defined string function to 
brighten up your INPUTed strings. 



10 FOR f=0TO 1 STEP0 
20 INPUT "INPUT your titled ";i$ 
30CLS 

35PRINTFNt$("D" + i$) 
40 PAUSE 150 
50 NEXT f 

60 DEF FN t$(x$) = CHR$ 18 + CHR$ 
1+CHR$16 + CHR$2 + " 

+ CHR$ 23 + CHR$ (16 — LEN x$/2) 
+ x$ + CHR$ 23 + CHR$ 31 + 



Note that since the Acorn version of this 
program uses MODE 7, it does not work 
properly on the Acorn Electron. 

5 MODE 7 

10 REPEAT 

20 INPUT' "INPUT YOUR TITLE" 
'A$ 

30 CLS:PRINT FNTITLE(A$) 

40W = INKEY(300) 

50 UNTIL 

60 DEF FNTITLE(X$) = CHRS131 
+ CHR$136 + STRING$(36, 
"*") + "□ D" + CHRS131 + CHR$ 
136 + ""' + STRING$(17-LEN 
X$/2 + (LENX$M0D2),"D") 
+ X$ + STRlNG$(17-LENX$/2, 
"□ ") + "*" + "□ □" + CHR$131 + 
CHR$1 36 + STRINGS^,'"") 

The DEF FN statement in Line 60 uses several 
CHR$s. These control the colour, and make 
the display flash to convert the strings, which 
you INPUT, into a pleasant title. The article on 
pages 314 to 320 explains how you can use 
these CHR$s. As with numeric functions, you 
can use the computer's built in string func- 
tions inside your definitions. The programs 
above use LEN to position the title, or name, 
exactly in the middle of the line. 

Line 30, which calls the function and then 
prints the new string at the top of the screen, 
also adds a space to the string. 

The reason for this is so that even if you 
press [ENTER], or I RETURN L before typing any 
letters of a name (or, if you enter a 'null 
string') the computer still prints up some- 
thing: the spaces. 



OUT OF STEP 



The strange-seeming STEP in Line 10 of the 
Spectrum program sends the computer into 
an infinite loop. It does this by telling the 
computer to count in STEPs of 0, so that the 
computer never gets to the end of the loop. 
The Acorn does the same, but using REPEAT 
. . . UNTIL 0, instead. 

While you could use a GOTO statement to 
do the same thing, GOTOs are usually consi- 
dered as bad structuring in programs, so this 
is one way you can avoid having to use one. 



The programs in this article have all used 
DEFined FunctioNs which can be written in 
just one line of BASIC. This is because all 
except the Acorn computers are restricted to 
defining their functions in just one line. The 
Acorn computers, though, can take as many 
lines of BASIC as there is memory to define a 
function. The last tine of the defining routine 
should begin ' = ' to tell the computer what 
the function actually equals. 

The advantages with this are that you can 
have LOCAL variables, and change various 
factors before the function is actually defined. 
You could also include IF ... THEN conditions 
in the routine, which you can't with the other 
computers. 



ADDING TO THE INTEREST 



Here is another example of DEF FNs at work in 
the form of a utility program which, although 
short, can be very helpful if you are trying to 
work out how much interest you have earned 
on your savings. 

The programs define a function to work 
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out the amount of money you should have 
after a given time period if you have been 
receiving a given rate of interest. You can 
INPUT the amount of money you have to start 
with, the rate of interest, and the time period. 



10DEFFNc(t) = INT(AM*((R/100 

+ 1)TT)*100)/100 
20 INPUT "How much (£)?D";AM 
30 INPUT "Interest rate {%) ?D";R 
40 INPUT "No. of time units? D";T 
50 PRINT AT 9,0;"Total amount after 

interest=D";TAB12;' < " , ;FNC(T) 
60 PRINT INVERSE 1;AT 20,3;"Press 

any key to go again" 
70 PAUSE 0: CLS : GOTO 20 



10CLS:PRINT" 
20 INPUT'HOW MUCH",AM 
30 INPUT'WEREST RATE 
(%) ",R 

40INPUT"NUMBEROFTIME 

UNITS "J 
50 PR1NT'""T0TAL AMOUNT 

AFTER INTEREST=";FNC(T) 
60 A$ = INKEY$(200): PRINT'" 
70 GOTO 20 
100DEFFNC(T) 
110 =INT(AM'((R/100 + 

1)TT)*100)/100 

10DEFFNC(T) = INT(AM'((1 + 

R/100)TT)*100)/100 
20 INPUT "HOW MUCH D";AM 
30 INPUT "INTEREST RATE (%)D";R 
40 INPUT "NO. OF TIME UNITSD";T 
50 PRINT"TOTAL AMOUNT AFTER 

INTEREST =",FNC(T) 
60 PRINT:PRINT"PRESS ANY KEY TO GO 

AGAIN" 
70A$=INKEY$:IFA$ = ""THEN70 
30 GOTO 20 



For the Commodore and Vic, you should 
replace the A$ = INKEY$ in Line 70 with GET 
A$. These programs work quite simply, by 
defining the function and then going through 
several INPUTs so you can give the details of 
your savings. The variables that the program 
uses are T — for the time period; AM — for the 
amount you have in the account to start off 
with; and R — the rate of interest. 

The only parameter which the function 
uses is T. You can see this, since it is the only 
letter in brackets after the function's name 
when the function is being defined. You 
should note, though, that every time you use 
the function you can set three variables — only 







one of them is a parameter. This is useful, as it 
means that by mixing both variables and 
parameters, you can get around a limit on 
parameters. 

Another point to note is that, with the 
Spectrum, although the function is defined in 
Line 10, the fact that it uses variables which 
have not yet been set up does not matter — the 
computer does not stop with an error. 

The interest calculated is compound inter- 
est, so that you earn interest on the interest 
you earned in the last time period, etc. 

This is automatically taken care of by the 
function. If, say, the interest rate is 10%, 
after one time pefiod, you will have the 
original sum, plus 10/100 (=1/10 or <1) of 
the original sum. You can see this expression 
contained in the function, as R/1 00 + 1 . So in 
the 10% example, the result after one time 
period is 1.1 times the amount you started 
with. After two time periods, it would be 1.1 
times the new starting sum, which is already 
1.1 times the original. So it is 1.1 times 1.1 



times the amount you put in to start with. 
And 1.1*1.1 is 1.1 jT. This is the second part 
of the function — which takes the full form 
seen in the program, (R/100 + 1)|T. The 
remaining part of the expression multiplies 
'this by the original amount (AM) and rounds 
the result off to two significant places by 
multiplying by 100, using the INT function 
and dividing by 1 00 again. 

The Acorn program is interesting, in that it 
takes more than one program line to define its 
function. 

You might like to use the two formulae 
below to create user-DEFined FunctioNs 
which your computer does not have. The 
formulae are for ARC SIN and ARC COS, for 
the Commodores, Dragon and Tandy: 

ASN(X) = ATN(X/SQR(-X*X-H) 
ACS(X)=-ATN 

(X/SQR(-X'X + 1)) + 1.5708 

You can also use formulae for other math- 
ematical functions. 




BOUNCIN 

ABOUND IDEA! 



Mathematics provides many models 
for the real world— models which 
you can use in your programs as the 
basis for effective displays. In this 
example, a graphic bouncing ball . . . 



Applied mathematics, and other branches of 
science, make use of a large number of 
equations in an attempt to provide a model for 
the real world. Such equations are derived as 
the result of observation and experiment- 
ation. The data that these generate is 
examined, and an equation that explains the 
relationship is derived to suit the data. 

Such equations have been worked out for 
all sorts of natural and physical phenomena — 
everything from the growth of a plant to the 
path traced out by a comet moving through 
space. There are all kinds of uses for this 
information, since by working through the 
equations it is possible to predict how the real 
thing will behave. 

The aim of some of the more obscure 
equations may not always appear immediately 
obvious — unless you happen to be involved in 
a particularly abstruse branch of research. But 
many of them provide models of things 
which are with in everyone's experience 
You have already seen one such ex- 
ample used in a computer program 
on page 41 1, where it was used to 
predict how a falling object would 
behave. 

But the result of this calcula- 
tion is simply another number — 
for time or whatever — which 
is just another model for the 
real world. This can often 
be very useful in itself, but 
there is another way in which 
such equations can be pro- 
grammed into your computer 
which provides an even more 
vivid model and which has almost \ 
limitless applications. This is by " 
using the equation to control a 
screen display directly. So in the 
earlier example, you could have a 
moving graphic to show the path of 
the falling object. 

For that matter, you could equally well 
turn any equation of motion into something 
which would manipulate the screen image. 
The ability to do this is the basis of many 
games programs and dramatic animations. 

The best way to see how this can be done is 
to work through an actual example — taking a 



series of simple equations which could be 
found in any physics text book and turning 
them into a vivid screen demonstration. For 
this example, let's start with something which 
is very easy to model — the path of a ball on a 
pool table after it is struck by the cue. 



MODELLING THE BALL 



If you strike a ball with a cue (or kick it for 
that matter), it will move in a straight line 
until it hits something, or unless some other 
force is acting on it — like gravity or a cross- 
wind, say. On a smooth pool table, you can 
effectively ignore the chances of cross- 



winds — so there is really only one force to 
worry about. This is the effect of friction, 
which will slow the ball down gradually as it 
rolls. But by how much? This is where we 
need the first of our equations. 

Roughly speaking, the harder the ball is hit 
(the larger the force given to it), the further it 
travels. There is an equation which works out 
how far the object travels, given the initial 
force, and certain other facts such as the effect 
of friction. This equation has a number of 
interesting applications in BASIC pro- 
gramming. To see it at work type in and RUN 
this program. 




HOW FAR CAN YOU 



HIT A BALL 



BOUNCING BALLS 



MOVING THE TARGET 



HOW THE EQUATION WORKS 



MORE POWERFUL SHOTS 

WORKING OUT THE 

COORDINATES 



SLOWING DOWN 



EXTENDING THE PROGRAMS 



10 CLS 

20 PRINT "1} Football in long grass" 

30 PRINT '"2} Golfball in short grass" 

40 PRINT '"3) Golfball on the moon" 

50 PRINT '"4} Poolball on a pool table" 

60 INPUT "which option would you like?",opt 

70 IFopt<1 OR opt > 4 THEN 

GOTO 60 
80 IF opt = 1 THEN LET fg = 49 
90 IF opt = 2 THEN LET fg = 34,5 
95 I F opt = 3 THEN LET fg = 1.64 
100 IF opt = 4THEN LET fg = 17.7 



110 CLS 

1 15 PRINT "The speed in metres per 

secondD Dean be between 1 and 1 5" 
120 INPUT "What initial speed do you 

wantD Dto give it? (mps)",v 
125IFv<1 OR v>15 THEN GOTO 120 
160 LET dist = (v"v)/(2*fg) 
170 CLS 

210 PRINT AT 2,4;"your ball would travel" 
220 PRINT AT 7,8;dist;"D metres" 
250 PRINT AT 18,3; FLASH 1;"press any key to 

go again" 
260 PAUSE 
270 GOTO 10 



E^ 




10 PRINT "□" 

20 PRINT "1) FOOTBALL IN LONG GRASS" 

30 PRINT "2) FOOTBALL IN SHORT GRASS" 

40 PRINT "3) GOLFBALL ON THE MOON" 

50 PRINT "4) POOLBALL ON A POOL TABLE" 

60 PRINT "HENTER OPTION?" 

70 GET K$:IF K$<"1" OR K$>"4" THEN 

70 
80OP = VAL(K$) 
90 IF OP = 1 THENFG = 4 
100 IF OP = 2 THEN FG = 1.4 
110 IF OP = 3THEN FG = .1 
120IFOP = 4THEN FG = .7 
130 PRINT "Q" 
140 PRINT "THE SPEED IN METRES PER 

SECOND CAN BE" 
145 PRINT "BETWEEN 1 AND 15." 
150 PRINT "WHAT INITIAL SPEED DO YOU 

WANT TO GIVE IT (MPS)." 
155 INPUT VE 

160IFVE<1 OR VE>15 THEN 130 
170D1 = (VE*VE)/(2*FG) 
1.80 PRINT "□" 
190 PRINT "YOUR BALL WOULD 

TRAVEL";DI;"METRES" 
200 PRINT "gaHITANYKEY" 
210 GET K$:IF KS = ""THEN 210 
220 RUN 



5@% = &20204 

10MODE1 

20 PRINT"""1) FOOTBALL IN LONG GRASS" 

30 PRINT""2) GOLFBALL IN SHORT GRASS" 

40 PRINT""3) GOLFBALL ON THE MOON" 

50 PRINT""4) POOLBALL ON A POOL TABLE" 

60 PR1NT'""WHICH OPTION DO YOU 

WANT ?" 
70G = GET-48:IFG<1 ORG>4THEN70 
80 IF G = 1 THENA = 4 
90 IF G = 2THEN A = 1.4 
100 IF G = 3THEN A = .3 
110 |F G=4THEN A = .7 
120 CLS 
130 PRINT'""THE RANGE OF VELOCITIES 

CAN BE: - 

FROM 1 TO 15" 
140 INPUT"WHAT INITIAL VALUE WOULD 

YOU LIKE IN MPS",V 



585 



150IFV<1 ORV>15THENH0 

160S=VV/(2*A) 

170 CLS 

180 PRINT'""YOUR BALL WOULD 

TRAVEL ";S;" METRES" 
190 PRINT'"""PRESS ANY KEY TO REPEAT" 
200G = GET:GOTO10 

ma 

10 CLS 

20 PRINT@35,"1) FOOTBALL IN LONG 

GRASS" 
30 PRINT@67,"2) GOLFBALL IN SHORT 

GRASS" 
40 PRINT@99,"3) GOLFBALL ON THE 

MOON" 
50 PRINT@131,"4) POOLBALL ON A POOL 

TABLE" 
60 PRINT:PRINT"DWHICH 

OPTION WOULD 

YOU LIKE ?" 



70 K$ = INKEY$:IFK$ < "1 "ORK$ > "4" 

THEN70 
80OP = VAL(K$) 
90 IF OP = 1 THENFG = 4 
100IFOP = 2THENFG = 1.4 
110 IFOP = 3 THEN FG=1 
120IFOP = 4THENFG = .7 
130 CLS 
140 PRINT" DTHE SPEED IN METRES PER 

SECOND CAN BE BETWEEN 1 AND 15" 
150 PRINT:INPUT"DWHAT INITIAL SPEED 

DO YOU WANT TO GIVE IT (MPS) ";VE 
160IFVE<1 ORVE>15THEN130 
170DI = (VE'VE)/(2*FG) 
180 CLS 



190 PRINT" DYOUR BALL WOULD 

TRAVEL ",DI;"METRES" 
200 PRINT@449,"PRESS ANY KEY TO GO 

AGAIN" 
210IFINKEY$ = ""THEN210 
220 GOTO 10 

The program begins by asking you about the 
conditions in which the ball is travelling. It 
then calculates the distance that the object 
would travel, for any choice of initial speed, 
which you INPUT. It takes into account a 
number of factors, such as friction, mass, and 
gravity. The equation it uses looks like this: 



Distance = 



vt2 

2*fg 

where v is the speed, which you 
INPUT, and fg is a value 
comprising gravity 
and friction 
Obviously, 
the value 





*** > - 







mt&sm 



of fg is different for each of the options in the 
program. 



WORKING OUT THE ANSWER 



The equation is solved (worked out), in Line 
160 on the Spectrum and Acorn or Line 170 
on the other machines. You can see that 
although the equation contains a power there 
is not a power sign in the program line. This is 
becuase the computers work out multiplic- 
ation sums much faster than they .work out 
powers. So when the number is just squared 
(as here) it is betterto multiply v by itself than 
to 'raise it to the power of 2'. 

Option 3, the golf ball travelling on the 
moon, gives so much larger results than the 
other because its value of fg is far smaller than 
those of the other options. The reason for this 
is that gravity on the moon is just one sixth 
the size it is on Earth. 

The last option, the pool ball on a pool 
table, also gives somewhat larger results than 
the other two options. This is because friction 
on a pool table is much less than it is in long or 
short grass; another object which would travel 
similarly well is a puck in an ice rink, where 
friction is similarly low. 

The values in the program for friction and 
gravity are only estimated, and are not accu- 
rate, but give a reasonable idea of how an 
equation tike this can be made into a working 
program to tell you how far an object might 
travel under the various circumstances. But 
we still do not have a moving object. 



A BOUNCING BALL 



The equation above calculates how far an 
object travels, but it assumes that there is 
nothing in the way of the object. 

Using the pool ball option in the program 
above is a good example: it is all very well for 
the ball to travel 10 metres, or whatever 
answer you might get, but pool tables are not 
that long: the ball would bounce off the sides 
of the table. 

Unlike a football bouncing on a grass field, 
it is quite simple to work out how the pool ball 
reacts when it hits the cushion (unless given a 
crafty spin). The ball simply bounces off 
mirroring the 'angle of incidence' (the angle at 
which the ball hits the side to start with). 

If you look at fig. 1 you can see this very 
clearly. The ball was hit from point a, and 
moved along the path shown by the dotted 
line, until it stopped at point b. As you can 
see, the angles are symmetrical. 

Once again, the world of applied mathema- 
tics provides a heady equation to demonstrate 
this principle. Armed with this, you can soon 
have a program which shows a ball/puck 
bouncing off any, or all, of the sides. 



The panel on page 592 shows the equations 
to work out the various different positions of 
the ball after bouncing off any of the sides. 
While these look frightening on paper, your 
computer can use them easily, and very 
quickly. 

The Commodore 64 version of the follow- 
ing program is written in Simons' BASIC and 
needs a Simons' cartridge, while the Vic 20 
needs a Super Expander. 



10 BORDER 4: PAPER 4: INK 0: CLS 
60 LET bx = 1 28: LET by = 76: LET ex = 1 00: 
LETcy = 1l2: LETnx = 100: LET ny = 112 
90 FOR n = 6 TO 20: PRINT PAPER 

7;AT n,2;"Q □ □ □ □ □ □ □ D 

DDDDDDDDDDDDDDD 

□ □DO": NEXT n 
100 CIRCLE OVER 1;bx,by,4 
110 PLOT OVER 1;cx-4,cy: DRAW OVER 

1;8,0: PLOT OVER 1;cx,cy-4: DRAW 

OVER 1;0,8 
120 LET a$ = INKEY$: IFa$ = ""THEN GOTO 

120 
130 IF INKEY$ = "a" AND cy>12 THEN LET 

ny = cy-2: GOTO 190 
140 IF INKEY$ = "q" AND cy<122THEN LET 

ny=cy + 2: GOTO 190 
150 IF INKEY$ = "p" AND ex < 236 THEN LET 

nx = cx + 2: GOTO 190 
160 IF INKEY$ = "o" AND ex > 20 THEN LET 

nx = cx-2: GOTO 190 
170 IF INKEY$ = CHR$ 32 THEN GOSUB 500: 

GOTO 300 
190 PLOT OVER 1;cx-4,cy: DRAW OVER 

1;8,0: PLOT OVER 1;cx,cy-4: DRAW 

OVER1;0,8 
200LETcy=ny: LETcx = nx 
210 GOTO 110 

300 IF INKEY$ = "" THEN GOTO 300 
305 CLS 
310 PRINT AT 2,5;"DISTANCE 

M0VED= ";INT {p'p'1 00/(18*1 8*.4))/1 00 
320 PRINT AT 5,5;"INITIAL 

VEL0CITY= ";INT (ABS (p*100/18))/100 
330 PRINT AT 10 5 8;"ANOTHER GO (Y/N)?" 
340 LET a$=INKEY$: IF a$< >"y" AND 

a$o"n" THEN GOTO 340 
350 IF a$ = "y" THEN CLS: GOTO 90 
360 PAPER 7: CLS : STOP 
500IFcx = bxANDcy = byTHENLETp = 0: 

RETURN 
510LETp = 
51 5 PRINT AT 0,0;"D DDDDDDD 

DDDDDDDDDDDDDD 

DDDDDDDDDD" 
520 LET p = p + 2: IF p = 256 THEN GOTO 

510 
530 PLOT p- 1,1 68: DRAW 0,7: PLOT p,168: 

DRAW 0,7 




Fig. 1. A snooker ball's path after hitting 
the table's side 

540 IF INKEY$ = CHR$ 32 THEN GOTO 520 
550 CIRCLE OVER 1;bx,by,4 
560 LET dx = ex - bx: LET dy = cy - by 
570 LET v = p/1 8: LET sq = SQR 

(dx*dx + dy*dy) 
590 LETt=1 
600PLOTbx + .5,by + .5 
610 LET vx=v'dx/sq: LET vy = v*dy/sq 
620 LET bx = bx + vx't-SGN vxMTt: LET 

by = by + vy*t-SGN vyMYt 
630 LETv=v— .1 
640IFABSv<.1 THEN GOTO 700 
650 IF bx<15 THEN LET dx= -dx: LET 

bx=30-bx 
660 IF bx>239 THEN LET dx= -dx: LET 

bx = 478 — bx 
670 IF by<8 THEN LET dy= -dy: LET 

bv = 1 6 by 
680 IF by>127 THEN LET dy= -dy: LET 

by = 254 -by 
690 GOTO 600 

710 IF bx<19 THEN LET bx=20 
720 IF bx>235 THEN LET bx=235 
730 IF by<12 THEN LET by=12 
740IFby>123THENLETby=123 
750 CIRCLE bx,by,4: RETURN 

KE 

10 HIRES 0,1 :MULTI 6,1,5: 

COLOUR 0,0 
20BX = 80:BY = 100:CX = BX: 

CY = BY 
30 BLOCK 0,30,160,180,1 
35 BLOCK 10,40,150,170,3 
40TEXT0,13,"POWER",3,1,5 
45 TEXT BX,BY,"0",0,1,1 
50FORZ = 0TO3:LINE1,Z,160,Z,1: 

NEXTZ i 

60 GET A$:IF A$ = "" THEN 110 



70 IF A$ = "||" AND CX>HTHEN 

CX = CX-3 
80IFA$ = "U"ANDCX<138THEN 

CX = CX + 3 
90 IF A$ = "rj" AND CY>44 THEN 

CY = CY-3 
100 IF A$ = "S" AND CY<156 THEN 

CY = CY + 3 
110 FOR N = 1 TO 2 
120 TEXT CX,CY," + ",4,1/1 :NEXT N 
130 IF A$o"D" OR(CX = BX AND 

CY = BY)THEN60 
135 P = 
140P=P + 2 
150 PLOT P-1,2,2:PLOT P,2,2:IF P = 160 

THEN LINE 1,2,161,2,1:60™ 135 
160 IF PEEK(197) = 60 THEN 140 
170 TEXT BX,BY,"0">3,1,1 
180DX = CX-BX:DY = CY-BY 
190V = P/10:SQ = SQR(DX"DX + DY*DY) 
200LX = BX:LY = BY 
210T=1 
220 TEXT LX + .5,LY + .5,"0'WU: 

BX = LX + .5:BY = LY + .5 
230 VX = V DX/SQ: VY = V DY/SQ 
240 LX = LX + VX*T - SG N ( VX) ' . TT*T: 

LY = LY + VY , T-SGN(VY)".1"T*T 
250V=V-.1 
255IFABS(V)<.1 THEN BX = LX: 

BY = LY: GOTO 320 
260 TEXT BX,BY,"0"A1,1 
270IFLX<10THENDX=-DX: 

LX = 20-LX 
280IFLX>143THENDX=-DX: 

LX = 286-LX 
290 IF LY< 40 THEN DY=-DY: 

LY = 80-LY 
300IFLY>162THENDY=-DY: 

LY = 324-LY 
305 PLOT BX + 3, BY +3,1 
310 GOTO 220 
320 BLOCK 0,183,160,200,1 
330 TEXT 0,1 84," DD DISTANCE 

MOVEDD:",2,1,5 
340 TEXT 0,192,"niNITIAL VELOCITY:",2,1,5 
350 TEXT 90,184,STR$(INT(P*P*100/ 

360 TEXT 90,192,STR$(INT(ABS(P"100/ 

18))/100),3,1,6 
370 TEXT 10,22,"ANOTHER GO (Y/N)",2,1,8 
380 GET A$:IFA$ = "N" THEN PRINT 

"□^":NRM:END 
390IFA$o"Y"THEN380 
400 TEXT 10,22,"ANOTHER GO (Y/N)?", 

0,1,8 
410GOTO35 



IE 



10 GRAPHIC 1 

20 BX = 512:BY = 540:CX = BX:CY = BY 

30 COLOR 5,6,2,0:DRAW 1,0,95 TO 1023,95 



35 PAINT 3,0,0 

40 CHAR 0,0,"POWER" 

45 CIRCLE 1,BX,BY,24,24 

60 GET A$:IF A$ = "" THEN 110 

70IFA$ = "||"ANDCX>20THEN 

CX = CX-8 
80IFA$ = "|I"ANDCX<1000THEN 

CX = CX + 8 
90 IF A$ = "n" AND CY>120 THEN 

CY = CY-8 
100 IF A$ = "H" AND CY < 1 000 THEN 

CY = CY + 8 
110 FOR N=3T0 0STEP-1 
120 POINT N,CX,CY:NEXTN 
130 IF A$< >"D" OR(CX = BX AND 

CY = BY)THEN60 
135 P = 
H0P=P+2 
150 DRAW 2,0,70 TO P"10,70:IF P>100 

THEN:DRAW 3,0,70 TO 1023,70:P = 1 
160 IF PEEK<197) = 32 THEN 140 
170 CIRCLE 0,BX,BY,24,24 
180DX = CX-BX:DY = CY-BY 
190V = P/2.7:SQ=SQR(DX"DX+DY'DY) 
210T=1 

220BX = BX + .5:BY = BY + .5 
230 VX = VDX/SQ:VY = VDY/SQ 
240BX = BX + VX*T-SGN(VX)".1*T*T: 

BY = BY + VY*T~SGN(VY) , .1 , T*T 
250V = V-.1 

255 IF ABS(V) < .1 THEN 320 
280IFBX>1023THENDX=-DX: 

BX = 2046-BX 
290 IF BY<100 THEN DY= - DY: 

BY = 200 -BY 
300IFBY>1023THENDY=-DY: 

BY = 2046 -BY 

305 IF BX < THEN DX = - DX: 
BX = 0-BX 

306 POINT 2,BX,BY 
310 GOTO 220 
320IFBX<24THENBX = 24 

321 IF BX>999 THEN BX=999 

322 IF BY < 124 THEN BY = 124 

323 IF BY > 999 THEN BY = 999 

324 CIRCLE 1,BX,BY,24,24 

325 POKE 198,0:WAIT 198,1: 
POKE 198,0:GRAPHIC 0: 
REGION 

330 PRINT "DISTANCE MOVED :" 
340 PRINT INT(P*P*100/(18* 

18*.4))/100 
350 PRINT "JfllNITIAL VELOCITY:" 
360 PRINT INT(ABS(P*100/18))/100 
370 PRINT "BHfcJUANOTHER GO 

(Y/N)?" 
380 GET A$:IF A$ = "N" THEN PRINT 

"□3":END 
390IFA$o"Y"THEN380 
400 GRAPHIC 1 
410 GOTO 30 



a 



10MODE1 

20 VDU 5 

30 VDU 23,224,0,24,60,126,126,60,24,0 

40 PROCBLOCK(150,50,200,650): 

PROCBLOCK(150,600,1 150,650) 
50 PROCBLOCK(150,50,1 150,100): 

PR0CBL0CK(1 100,50,1 150,650) 
60 VDU1 9,0,2,0,0,0 
70 MOVE 50,732:PRINT"POWER" 
80BX = 650:BY = 350:CX = 650: 

CY = 350 
90 GCOL3,3 

100 MOVE BX-12,BY-12:VDU 224 
110 MOVE CX-12,CY- 12:VDU 43 
120NX=CX:NY = CY 
130 IF INKEY( — 87) THEN NY=NY-8 
140 IF 1NKEY( — 56) THEN NY = NY + 8 
150 IF INKEY(-98) THEN NX=NX-8 
160 IF 1NKEY( — 67) THEN NX = NX + 8 
170 IF INKEY(-99) AND NOT(NX = BX AND 

NY = BY) THEN PROCSHOT:GOTO90 
180 IF NX=CX AND NY = CYTHEN 120 
190 IF NX<212 OR NX > 1 086 OR NY<112 

ORNY>596THEN120 
200 MOVE CX-12,CY + 12:VDU 43 
210CX = NX:CY = NY 
220 MOVE CX-12,CY+12:VDU 43 
230 GOTO 120 
240 DEF PROCSHOT 
250 VDU 4:PRINTTAB(0,3)STRING$ 

(160,"D") 
260 GCOL0,0:PROCBLOCK(300,700, 

1158,732):GCOL0,3 
270 P = 1 
280 IF P> 850 THEN P = 10:GCOL0,0: 

PROCBLOCK(300,700,1 158,732): 

GCOL0,3 
290PROCBLOCK(300 + P,700, 

300 + P + 8,732) 
300SOUND1,-15,P*255/850,1 
310 IF INKEY( — 99) THEN p = P + 8: 

GOTO 280 
320VDU24,204;104;1096;596;: 

CLG:VDU26 
330DX = CX-BX:DY = CY-BY 
340 V = P/20:SQ = SQR(DX*DX + DY'DY) 
360 T = 1 .5 
370 PL0T69,BX,BY 
380 VX = V DX/SO: VY = V* DY/SQ 
390 BX = BX + VX'T - SG N { VX) * . 1* T*T: 

BY=BY + VY'T-.1*T*T 
400V = V-.1 

410IFABS(V)<.1 THEN 480 
420IFBX<200THENDX=-DX: 

BX=400-BX:SOUND1,- 15,100,1 
430 IF BX> 1100 THEN DX=-DX: 

BX = 2200-BX:SOUND1,- 15,100,1 
440 IF BY<100THEN DY= - DY: 

BY = 200 -BY:S0UND1,- 15,100,1 



II 




450IFBY>600THENDY=-DY: 

BY = 1 200 -BY:S0UND1,- 15,1 00,1 
460 GOTO 370 

4B0 IF BX<212 THEN BX = 212 
490 IF BX> 1080 THEN BX = 1080 
500 IF BY < 120 THEN BY = 120 
510 IF BY > 588 THEN BY = 588 
520 VDU 4:PRINTTAB(0,3)"INITIAL 

VELOCITY D",P/20 
530 PRINTTAB(0,6)"DISTANCE 

TRAVELLED n",(P/20) a 2/.5:VDU 5 
540 ENDPROC 

550 DEF PROCBLOCK(X,Y,X2,Y2) 
560 MOVE X,Y:MOVEX2,Y 
570 PLOT85,X,Y2:PLOT85,X2,Y2 
580 ENDPROC 



isu 



On the Tandy, change the 223 in Lines 1 30, 
140, 150, 160, 170, and 540 to 247. 

10 PMODE3,1:PCLS:DIM B(2),BL(2),C(0) 
30 DRAW"BM5,0C3FRFD6GLGHL2HU6E": 

PAINT(5,5),3 
40 DRAW"BM20,0C2D2NLR2DL3FD" 
50GET(0,0)-(9,10),B,G 
60GET(18,0}-(23,5),C,G 



70PCLS4:SCREEN1,0 

80 UNE(1 8,58) - (230,1 70),PRESET,BF 

90 BX = 1 23: BY = 1 1 0: CX = 1 25: CY = 1 1 2: 

NX = 125:NY = 112 
100 PUT(BX,BY)-(BX + 9,BY + 10),B,OR 
1 1 PUT(CX,CY) - (CX + 5,CY + 5),C,OR 
120NX = CX:NY = CY 
130 IF PEEK(341)=223 THEN NY = NY-2: 

GOTO 190 
140 If PEEK(342) = 223 THEN NY = NY+2: 

GOTO 190 
150 IF PEEK(343)=223 THEN NX=NX — 2: 

GOTO 190 
1 60 IF PEEK(344) = 223 THEN NX = NX + 2: 

GOTO 190 
170IFPEEK(345) = 223GOSUB500; 

GOTO 220 
180 GOTO 100 
190 IF NX<18 OR NX>225 OR NY<58 OR 

NY > 165 THEN 120 
200 PUT(CX,CY) - (CX + 5,CY + 5),BL,PSET 
210CX = NX:CY = NY:GOTO100 
220 PUT(BX,BY) - (BX + 9,BY + 1 0),B,OR: 

PUT{CX,CY) - (CX + 5,CY + 5),C,OR 
230 A$ = INKEY$ 
240IFINKEY$ = ""THEN240 
250 CLS:PRINT@33,"DISTANCE MOVED = "; 



INT(P*P*100/(18*18*.4)}/100 
260 PRINT@97,"INIT1AL VELOCITY ="; 

INT(ABS(P'100/18))/100 
270 PRINT@225,"ANOTHER GO (Y/N) ?" 
280 A$ = INKEYS:IF A$o"Y" AND 

A$o"N" THEN 280 
290 IF A$ = "Y" THEN SCREEN1,0:GOTO 100 
300 CLS:END 
500 IF CX = BX+2 AND CY=BY + 2 THEN 

RETURN 
510 P=1 

520P = 255AND(P + 2) 
530LINE(P,0)-(P + 2,6},PSET,BF: 

UNE(P + 4,0)-(255,6),PRESET,BF 
540 S0UNDP,1:IF PEEK(345) = 223 THEN520 
550LINE(18,58)-(230,170),PRESET,BF 
560 DX = CX-BX-2:DY = CY-3-BY 
570 V = P/1 8:SQ = SQR(DX*DX + DY'DY) 
580 BX=BX + 4:BY = BY + 5:T = 1 
600PSET{BX + .5,BY + .5,3) 
61 VX = VDX/SQ:VY = VDY/SQ 
620 BX = BX + VX*T-SGN(VX)*.1TT: 

BY = BY + VY'T - SG N (VY) M *TT 
630 V=V — .1: IFABS(V)<.1 THEN 700 
6501FBX<18THENDX=-DX: 

BX = 36-BX:SOUND5,1 
660 IF BX>230 THENDX= DX: 



BX = 460-BX:SOUND5,1 
670 IF BY<58THEN DY= — DY: 

BY = 1 1 6 — BY:S0UN05,1 
680 IF BY > 1 70 THEN DY = — DY: 

BY = 340-BY:SOUND5,1 
690 GOTO 600 
700BX = BX-4:BY = BY-5 
710 IF BX<18 THEN BX=18 
720 IF BX>221 THEN BX = 221 
730 I F BY < 58 TH EN BY = 58 
740 IF BY> 160 THEN BY = 1 60 
750 RETURN 

When you RUN this program, the computer 
draws a rectangle in the middle of the screen: 
this is the rink, table or the area in which the 
object can move about. 



A MOVING TARGET 



You can also see a ball in the middle of the 
rectangle. In fact, there is also a cursor which 
may be concealed by this bait. You can see this 
by moving the cursor with the following keys: 
Spectrum up Q; down A; left 0; right P; 
Commodore and Vic 20 up f ; down j,; left <— ; 
right — ►; (cursor keys) Acorn up P; down L; 
left Z; right X; Dragon and Tandy up|; down 
|; left <— ; right —*; (cursor keys). On all 
except the Vic, the cursor is a cross. The Vic's 
is a dot, to speed up the program. You can 
move the cursor where you like within the 
rectangle to indicate the direction of move- 
ment of the ball. When you have positioned 
the cursor where you want it, press the space 
bar (or the |SPACE| key on the Spectrum). 

Then a horizontal line appears at the top of 
the screen, and gets steadily larger as long as 
you hold the space bar or key down. This 
shows how hard you will hit the ball — the 
longer the line the greater the force. 

As soon as you release the space bar or key, 
the computer clears the rectangle, and then 
plots a series of dots: these show the path that 
the ball would take. The dots are much closer 
together when the ball is slowing down. 

Try putting the cursor in different po- 
sitions and giving different velocities to the 
ball to see the effect. 



HOW IT WORKS 



You can see the principles of reflection very 
clearly here. Whenever the ball hits a side, it 
bounces back, always at the same angle it 
came in at. This is the same for every side of 
the table. This is arranged in slightly different 
ways on each computer. 



GELffiSStai 



The programs all start by initialising some 
variables and setting the correct screen mode 
and colours. The Dragon and Tandy program 
also DIMensions 3 arrays, and GETs two 
UDGs into them (one for the ball, one for the 
cross and one for a blank). 

The variables set up are BX, BY (x and y 
coordinates for the ball); CX, CY (the coordi- 
nates for the cross); and NX and NY (the 'new 
coordinates for the cross — these are the vari- 
ables used and changed when you move the 
cursor around in the rectangle). 

Once this is done, the rectangle is drawn on 
the screen, and the 1NKEY$, or GET$, routine 
which lets you move the cursor comes into 
effect. The Dragon/Tandy routine PEEKs the 
keyboard instead of using INKEY$, since this 
allows all keys to auto-repeat. 

Apart from just checking to see whether 
you are moving the cross up, down, left, or 
right, the routine also checks for the space 
bar, or key, being pressed. If you are pressing 
the space key, the computer GOSUBs to 500 
(except the Commodores, which do not use 
subroutines; the Commodores just carry on to 
the next Lines if the space is pressed). This 
routine First checks on the position of the 
cross or dot; if it is over the centre of the ball, 
then the power is immediately set to 0, and 
the computer RETURNS from the subroutine. 
The Dragon does not specifically set P (P is 
the variable for the power) to 0, as its BASIC 
automatically assumes every variable to be 
unless you tell is otherwise. 

The reason for this is that when the cross is 
on top of the ball, the computer does not 
know in which direction to move the ball — so 
this check prevents an error occurring. 



If the cross is in an allowed position, then 
the power factor, P, is set to on the 
Spectrum, or 1 on the Commodores, Dragon, 
and Tandy. You can see this, as the horizontal 
line is wiped out at this point. 



INCREASING THE POWER 



P is then increased by 2 every time that the 
computer detects the space key being pressed, 
until it reaches 256 (255 on the Dragon and 
Tandy). Once this happens, P is reset to — 
and the horizontal line, which increases with 
P, is removed again. The computer stays in 
this loop until the space key is no longer being 
pressed. 

As soon as the condition in Line 540 is no 
longer true, that is as soon as the space 
bar/key is released, the computer goes onto 
the next lines. 

These first delete the ball, which was still 
in its last position. The Spectrum uses OVER 1 
and the CIRCLE command to erase it, while the 
Commodore, Dragon and Tandy blank out 
the whole rectangle. The rest of the 
programme, the line numbers after 560, 
involve calculating and printing the dots 
which mark the ball's path, and are explained 
later in this article — see: Working out the 
coordinates. 

Once the computer has finished calculating 
and drawing the ball's path, it RETURNs to 
Line 170, and goes immediately to Line 220, 
on the Dragon, or 300 on the Spectrum. This 
does not apply to the Commodores, which do 
not need to RETURN. 

The Dragon first PUTs the ball in its new 
position, and the cross in the same position it 
was in before. The two OR statements at the 
end of each PUT command make sure that the 
cross and ball do not erase anything (dots) 
which is in the same character space. 

The computers then wait until a key has 
been pressed before clearing the screen and 
PRINTing the initial speed the ball had, and 
the distance the ball moved, except the Com- 
modore 64 which prints these details on the 
same screen. The computers then offer you 
another go, and so either stop, or start again. 



BBgRca. 




The Acorn program starts off by setting the 
correct MODE, setting the graphics cursor and 
defining a UDG for the ball. It then calls the 
PROCedure PROCBLOCK four times to put in 
the table. 

PROCBLOCK draws a rectangle, but in two 
halves: it first draws a triangle, and then adds 
another next to it to make a rectangle. This 
strange way of drawing a rectangle is used as 
the computer can easily fill in the triangle 
with the PLOT command. The numbers in 
brackets after each call to this PROCedure 
refer to the positions of each block on the 
screen. 

After this, Line 60 sets the colour, and 
Line 70 PR I NTs the word POWER at the top 
of the table. 

Line 80 sets up four variables. BX and BY 
are the coordinates of the ball, while CX and 
CY are the coordinates of the cross. 

The colour is then changed to Exclusive OR 
white (Exclusive OR colours were explained 
on pages 371 to 374), and the ball and cross 
are put onto the table, 

Two more variables are set up in Line 120, 
NX and NY, which are given the values of the 
cross coordinates. These new variables are 
then used to move the cursor around: as the 
NX and NY coordinates are changed by IN KEY 
commands in Lines 130 to 170 (when you 
move the cursor around), the cross is PR IN Ted 
at the new coordinates, and, too, at the old. 
Since the colour is Exclusive OR white, 
PRINTing over something which is already 
there effectively erases it. 



PREVENTING ERRORS 



This routine continues, with the user free to 
move the cross around with the keyboard 
until the space bar is pressed. If the space bar 
is pressed and the cross is on top of the ball, 
though, the computer stays in the loop: the 
cross must be separate from the ball, or an 
error message will result. 

Once the computer has left this loop, it 
calls PROCSHOT. This PROC edure is the heart 



of the program: it lets you set the power value, 
shoots the ball, and PLOTs the dots along the 
path taken by the ball. 

The first section, Lines 240 to 310, lets you 
set the power. The power block is rubbed out, 
and then built up again as long as the space 
bar remains depressed. Line 310 sends the 
computer back to the start of this loop IF the 
space bar is still being pressed, otherwise the 
computer carries on to the next line. 

The next line clears the graphics screen, 
after which the computer carries the same 
equation and plots the dots in the same way as 
the other computers (see: Working out the 
coordinates, below). Lines 520 and 530 print 
the distance that the ball travelled, and the 
initial speed it had, once the ball has finished 
moving. The ENDPROC in Line 540 sends the 
computer back to Line 170, and a GOTO in 
that line sends the computer back to Line 90, 
to start the program again. 

As you can see from the diagram on page 587, 
you can find out where an object will bounce 
after hitting a side by working out the angle at 
which the object hit the side to start with. 

Unfortunately, the computers do not have 
any way of directly measuring angles like this, 
so they use an equation instead. 



WORKING OUT COORDINATES 



Each of the programs sets up variables for the 
positions of the ball and the cross (in fact 
there are two sets of coordinate variables for 
the cross, but only one is used here). The 
computer needs another set, too — the dif- 
ference between the positions of the cross and 
the ball. Once it has this, it can work out what 
direction the ball is travelling in to start with. 

The variables which hold the "difference" 
between the position of the ball and of the 
cross are DX and DY. The Spectrum and 
Dragon and Tandy set up these variables in 
Line 560, while Commodore does this in Line 
180, and the Acorn program in Line 330. 

There are several other variables, too, 
which the program uses for the calculations. V 



is a variable set up for the initial speed; its 
initial value is a proportion of the power 
rating which you set up (the exact size of this 
proportion varies between each computer, 
because of the different screen sizes. This is 
also true with some of the other variables). 



SQUARE ROOTS 



The variable SQ is set equal to the Square 
Root of (DX'DX + DY'DY). This is actually 
just working out the distance between the 
cross and the ball, using a mathematical law: 
Pythagoras's Theorem, which says that the 
length of the longest side of a right-angled 
triangle equals the square root of (the square 
of both the other sides). 

The variable T is the time interval used in 
the equations. By making the value of T larger, 
you can make the program faster, although 
less dots would be plotted. The reason for this 
is that the total time that the ball travels would 
be divided by a larger interval, and so the 
number of steps would be smaller. 

As soon as the time interval has been set, 
the computer plots a point- the first dot of the 
path. In fact, the Commodore 64 PRINTs the 
ball — as well as leaving a path of dots. 

Then the programs set up another two 
variables for the calculations. These are the 
values for speed, in both the x and the y (or 
the horizontal and the vertical) axes. In other 
words, VX holds the velocity that the ball is 
travelling in the horizontal direction, and VY 
holds the velocity that the ball is travelling in 
the vertical direction. Both of these variables 
can hold negative values: if they do, it simply 
means that the ball is travelling from right to 
left (for VX) or from down to up (for VY). 

The value of these two variables are 
worked out, as you can see from Line 610 
(Spectrum, Dragon and Tandy), Line 230 
(Commodore), or Line 380 (Acorn), by mul- 
tiplying the speed, V, by the variable DX (or 
DY for VY} and dividing the result by the 
distance between the centre of the ball and the 
centre of the cross: the variable SQ (you 
should be careful not to confuse this variable, 
SQ, with the very different function SQR). 



L 



Working out the ball's speed 

The programs use several equations to 
work out the new position of the ball, and 
its speed. The equations on the diagram 
separate the speed in the x and the y 
directions. 

The computers solve these two equ- 
ations for every position in the ball's path, 
but in a slightly different form from that 
above. The constants (Xc-Xb) and (Yc-Yb) 
are replaced in the program by Dx and Dy. 
With these, the computers calculate the 
new speeds every move, to take deceler- 
ation into account. 

As the equation shows, the computer 
multiplies the difference between the x and 
y coordinates of the ball and the cursor by 
the overall speed, and divides this by the 
result of the bottom line of the fraction: 
the square root of (the difference between 
the x coordinates of the ball and the cursor 



Y speed = 



V(yc-yb) 




X speed 



V(xc-xb) 



J(xc-xb) 2 + lyc-ybP 



squared plus the difference between the y 
coordinates of the ball and the cursor 
squared). 

The next two equations actually work 
out the new x and y coordinates. They look 
like this: 

Xn = Xb+Vx*T-0.01T 
Yn = Yb+Vy*T-0.01"r 

The new position of the ball is calculated 
by adding a number to the old x and y 
coordinates. The number to be added is 
worked out by multiplying the x or y speed 
by the time, and then subtracting a small 
fraction of T squared, to take deceleration 
into account. 

The speed is then decreased by a small 
amount (0.1) and the ball's new position 
plotted, before the loop is run again. 



THE BALLS NEW POSITION 



At this point, your computer knows all the 
values it needs to be able to calculate the new 
_ position of the ball — so that is precisely what 
it does. Line 620, for the Spectrum, Dragon 
and Tandy, Line 240 for the Commodore, 
and Line 390 for the Acorn, calculate the new 
values for BX and BY (the Commodore 64 
calculates new values for the variables LX and 
LY, since it needs to remember the old values 
of BX and BY so it can erase the old ball). 

The sum that the line works out looks like 
this for each coordinate: 

BX=BX+VX*T-S6N(VX)'.1 *T "T 

Although this looks extremely complicated, it 
is not — once you know what each part does. 

The calculations add a number to BX, or 
BY, to give the new coordinate. The number 
to be added can be negative, depending on the 
direction the ball is travelling in. 

The first step in the calculation puts in the 
present value of BX, and then adds the extra 
distance that the ball has just travelled. This 
extra distance is worked out in two stages. 

To start with, the speed is multiplied by 
the time interval. This is quite logical: if you 
think about what speed actually is, it is the 
distance travelled per unit of time; so, to find 
out the distance travelled, you simply multi- 
ply the speed by the time unit. 

Unfortunately, the program also needs to 
make a slight adjustment for the fact that the 
speed held by VX and VY is not the actual, 



overall speed — each is just the speed the ball is 
travelling in one direction. This is the reason 
for the rather strange-looking calculations at 
the end of the sum, involving the sign of VX, 
or VY, and a fraction of T squared. 

The function SGN gives the result 1,-1, 
or 0, depending on whether the 'argument' 
(the number in brackets, whose sign you want 
to know) is positive, negative, or zero. It is 
used here so that, if the vertical or horizontal 
speed is negative, instead of subtracting a 
number from the distance travelled, (which 
would actually increase the distance travelled 
if the change in the distance was negative — 
the change in the distance is negative if it is 
travelling either upwards, or towards the left, 
remember). 

The computer adds the distance travelled 
to the right or left to the horizontal coordi- 
nate, and then subtracts the value it has just 
worked out. The final result is the new 
coordinate. The same calculations are carried 
out on both coordinates of the ball. 



SLOWING DOWN 



The program then decreases the speed by 0.1 
and checks to see if the speed is less than 0.1 
(if it is it goes to the end of the routine — which 
is explained below). It then runs through four 
lines to check whether the ball would have hit 
a side on the way to its new position (by using 
four IF . . . THEN statements to check if the 
coordinates of the new position fall outside 
the limits of the table). If the ball would have 
hit a side, then the value of the variable DX (or 



DY if the side was on the top or bottom of the 
table) is set equal to minus DX or DY. 

The variables BX and BY (LX and LY on the 
Commodore) are also altered to put the ball's 
position where it ought to be. The numbers 
from which the old coordinates are subtracted 
are exactly double the table's limit. So, the 
highest coordinate of the table on the Spec- 
trum is 127, which means that whenever the 
ball hits the top side, of the table, BX becomes 
254 -BX (254 is twice 127). 

After these checks the computer goes back 
to do the calculations again for the next point. 

The end of the routine (which is reached 
when the speed is less than 0. 1) is another set 
of four IF ... THEN statements which check to 
see if the program is trying to PRINT or PUT 
the ball on top of the side of the table, before 
the ball is actually put onto the screen. 

Some of the coordinates used in this set of 
IF ... THEN statements may be different to 
those in the last set of checks, since this time 
the thing being put onto the screen is a ball 
and not a dot — and the ball takes up more 
space, so the coordinates need to be adjusted 
"in some of the checks. 



FURTHER IDEAS 



The program can be used in a lot of your 
own programs. A few logical extensions of it 
might be to convert the program into a 
snooker program: you could add some 
pockets for the ball to fall into, and a scoring 
routine. You could also use it as the basis for 
games such as knocking through a wall. 
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ACORN PROGIRA 
iZER- 




WORKING OUT HOW MANY 
BYTES HAVE BEEN SAVED 




CONVERTING HEX 



The assembly language program in 
part one of this article stripped 
unnecessary spaces and REM 
statements from your BASIC 
programs. Here, a routine calculates 
the bytes saved 

Apart from its practical function, this is a very 
useful assembly language routine to under- 
stand because it includes a utility that you can 
use over and over again in other programs — it 
converts a hex number into decimal and 
prints it on the screen. 



The first thing that you have to do is tie the 
routines together, so load in the source code 
from last week. Obviously the first routine 
must call the one given here, so you should 
change the RTS in Line 480 of the assembly 
language listing given before to J MP 
SHOWSAVE. And Line 1250 which switched 
off the assembler and closed the pass loop last 
time has to be overwritten. What follows here 
is the subroutine SHOWSAVE: 

1240 .SHOWSAVE 

1250 SEC 

1260 LDA &72 

1270 SBC &70 

1280STA&70 

1290 LDA &73 

1300 SBC &71 

1310STA&71 

1320 .NUMBER 

1330 LDX #10 

1340 LDA #13 

1350 JSR &FFE3 

1360 ,N2 

1370 LDA NUMDATA-1,X 

1380STA&73 

1390 LDA NUM DATA -2,X 

1400STA&72 

1410 LDY #255 

1420 .N3 

1430 I NY 

1440 SEC 

1450 LDA &70 

1460 SBC &72 

1470 STA &70 

1480 LDA &71 



INTO DECIMAL 



PRINT NUMBERS ON THE SCREEN 




1490 SBC &73 
1500 STA &71 
1510BCSN3 
1520 LDA m 
1530 ADC &72 
1540 STA &70 
1550 LDA &71 
1560 ADC &73 
1570 STA &71 
1580TYA 
1590 CLC 
1600 ADC #48 



1610 JSR &FFEE 

1620.N4DDEX 

1640 D EX 

1650BNEN2 

1660 LDA #13 

1670 JSR &FFE3 

1680JMP&FFE3 

1690.NUMDATA 

1750]:NEXT 

1800 FOR T = TO 4 

1810P%!(T*2) = 10TT 

1820 NEXT 



593 



The first thing that is done in SHOWSAVE is 
setting the carry flag. There are some subtrac- 
tions to be done. 

When the microprocessor jumps out of the 
first part of the stripper, the old program 
pointer, in 72 and 73, and the new program 
pointer, in 70 and 71, are pointing to a point 
just past the end of both programs. In fact, 
they are pointing to what they took to be the 
high byte of the BASIC line number of the 
line which doesn't actually exist after the end 
of the BASIC program. 

It's the difference between these two poin- 
ters that gives the number of bytes the 
stripper has saved, so it doesn't matter that 
these pointers are past the end of the program, 
because they are both past the end by the same 
amount. 

So the instructions in Lines 1250 to 1280 
subtract the low byte of the new program 
counter in 70 from the low byte of the old 
program in 72 and put the result in 70. And 
the instructions in Lines 1290 to 1310 sub- 
tract the high bytes and put the result in 71 . 
Done in that order, any borrow from the first 
subtraction is automatically accounted for in 
the second subtraction by the carry flag. And 
since the old program must be longer than, or 
the same length as, the new, stripped version, 
there can't be any borrow carried over from 
the second subtraction. 

The number of bytes saved by stripping 
the program is now stored in 70 and 71 . All 
you have to do now is convert this hex 
number into decimal and print it on the 



THE CONVERSION 



The theory behind the conversion is quite 
simple. To work out the fifth place of 
decimals — that is, the left-hand place, in this 
case — 10,000 is repeatedly taken away from 
the number, and the program counts how 
many times it will go. The next place to the 
right is worked out by repeatedly taking 1000 
away and seeing how many times it will go. 
The hundreds are worked out by taking 100 
away repeatedly and counting how many 
times it will go. The tens are worked out by 
taking 10s away. And, for completeness, the 
ones are worked out by taking 1 away re- 
peatedly and counting how many times it will 

go. 

These numbers— the 10000, 1000, 100, 
10 and 1 — are stored in a table labelled 
NUMDATA at the bottom of the assembly 



listing by the FOR . . . NEXT loop at line 1800 
to 1820. 

The instruction in Line 1330 loads the X 
register with 1 0. This is going to be used as an 
index pointer to keep your place in the 
NUMDATA table, which is composed of five 
words or ten bytes. 

The next instruction loads the accumulator 
with 13 and JSR &FFE3 jumps to the subrout- 
ine at FFE3. This routine gives a carriage 
return/line feed when the contents of the 
accumulator are 1 3. This is only done to leave 
a line space between the last line on the screen 
and the screen display of the bytes saved. 

The instruction on Line 1370 then loads 
the accumulator with the high byte of the 
factor from the NUMDATA table. This is 
stored in zero-page memory location 73. And 
the instruction on Line 1390 picks up the low 
byte. That's stored in 72. 




mill 



B2EHE 



LDY # 255 loads the Y register with FF. The 
Y register is going to be used as the counter, 
and to start it off, FF is loaded into it so that 
when it hits the INY instruction in Line 1430 
it begins the cycle with the value 0. 

The instruction in Line 1440 sets the carry 
flag again, ready for some more subtractions. 
This time the value picked up from the table 
and stored in the 72 and 73 is taken away from 
the hex value of the number of bytes saved. 
Again this is done low byte first, then high 
byte — so that any borrows are automatically 
taken into account. The results are stored 
back in 70 and 71, ready for the next 
subtraction. 

If the second subtraction does not require a 
borrow, the carry flag will be set. Remember, 
this works the opposite way around from what 
you'd expect — a borrow clears the carry, no 
borrow sets it. So if the number from the table 





How should I use the zero page 
on my BBC Micro? 

Some of the BBC Micro's zero page is 
set aside for system variables. So if you 
are working with one — the pointer to the 
beginning of the BASIC program area, 
say — you need to copy it into a free user 
area of the zero page. The BBC User 
Guide gives details of the processor's use 
of the zero page. But locations 70 to 
8F in hex are free for user routines. 

The reason for transposing the value 
of a pointer into a user zero page 
location is that, if you tried to 
manipulate the number in the system 
variable location it would be in constant 
danger of being overwritten by the 
operating system. 

So the initial value of pointers are 
picked up and copied into the user 
section of the zero page. The advantage 
of using the zero page is that the 
associated instructions take one less byte y 
of memory. It is always more efficien) 
to use zero page locations for 
commonly used values. 



can be taken away, the branch is made back to 
N3 in Line 1420 by the instruction BCS — 
Branch on Carry Set. The counter in the Y 
register is then incremented and the whole 
subtraction process is gone through again. 

The processor will go round and round this 
loop, taking away the number from the table 
and incrementing the Y register until the 
subtraction won't go. When this happens, it 
will require a borrow, the carry flag will be 
cleared and the processor will proceed to the 
next instruction. 

The problem is that, by this point, the 
subtraction will then have been performed 
one too many times. So the instructions in 
Lines 1520 to 1570 add what's been sub- 
tracted on the last pass back on again. You'll 
note that there is no CLC — dear Carry flag — 
instruction here, even though you are about 
to add. This is because the carry flag must 
already be clear, otherwise the BCS instruc- 
tion would have sent the processor back to N3 
again. 

In Line 1580, the TYA transfers the 
contents of the Y register — that is, the counter 
that's been clocked up — into the accumulator. 
The carry flag is then cleared by the CLC on 
Line 1590. 



This is not entirely necessary as the TYA 
instruction does not affect the carry flag and 
the addition before then cannot have 
overflowed. You were just adding the last 
subtraction back on again, remember. But 
still, the cautious programmer puts clear carry 
flag instructions before additions and set 
carry flag instructions before subtractions 
whenever they occur. 

The number in the accumulator must be 
between 1 and 9. The stripper cannot have 
saved more than 28I60bytes,soeachcycle can- 
not have clocked up more than 9 or it would 
have been accounted for in the cycle before. 

48 is added to this number to give the 
ASCII value. And the subroutine starting at 
FFEE finds the pixel pattern for this character, 
prints it on the screen and moves onto the 
next character square. 

The instructions in Lines 1630 and 1640 
DEcrement the X register, twice. This moves 
the pointers in Lines 1370 and 1390 onto the 
next two bytes in the NUMDATA table. And 
the BNE in Line 1650 will branch back to the 
beginning of this routine again, in Line 1360, 
to work out the next decimal digit working 
from left to right. 

If the end of the table has been reached and 
the 1s have been dealt with, the second DEX 
will give 0. So the BNE N2 instruction does not 
operate and the processor moves on to the 
instruction ' in Line 1660. This loads the 
accumulator up with 13 again and JSR FFE3 
puts a carriage return/line feed at the end of 
the line. 

The subroutine that starts at FFE3 has an 
RTS built into it, otherwise it wouldn't return 
to the program after it was called. So when, in 
Line 1680, the processor jumps to it, it gives 
another carriage return/line feed — in other 
words, it gives another line space — then, 
when it hits the RTS, it returns to BASIC. 

Again, the closed bracket on Line 1750, 
switches the assembler off. And the NEXT 
closes the FOR ... NEXT loop required to 
assemble the program. The switch-off as- 
sembler instructions from part one were 
overwritten, remember. 



SAVEING. LOADING. CALLINt 



Once you have RUN this as a BASIC program 
to assemble it, you SAVE and LOAD it in 
exactly the same way as you did with the basic 
stripper. Only, you have to work out the 
number of bytes you need to save again. In 
this example you would use •SAVE "STRIP" 
0900D0A25. 

The same instruction is used to CALL the 
routine as the second routine is accessed out 
of the first. Remember to set A% to give you 
the required stripping. 
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All micros have an edit facility and 
the Dragon system is one of the 
most sophisticated. But this can 
make it confusing to use and hard to 
exploit to the best advantage 



Unless you've been very careful, and prob- 
ably more than a little lucky, RUNning a 
program for the first time will almost certain- 
ly throw up an error message. Or problems 
might well be found once you've eradicated 
the errors, and you try to test the program 
properly. 

Debugging a program can be a time- 
consuming process — see pages 334 to 338 — 
particularly if each offending line needs to be 
re-entered from scratch. All microcomputers 
have some kind of editor to speed up alter- 
ations to programs, but the Dragon and 
Tandy system is particularly comprehensive, 
if a little complicated. Here's how to use it to 



the best possible effect. 

Suppose you have just found an error in 
Line 20 of your program, for example. To 
bring the editor into play type EDIT 20 and 
I ENTER! . The line will appear towards the 
bottom of the screen. Underneath it will 
appear the line number, with the cursor next 
to it. The screen will have something like this, 
in which part of the bracket in Line 20 is 
missing: 

20X=RND(1 
20 

The machine is now in edit mode, and you can 
make alterations to the line you've chosen. If 



you have made a mistake and told the machine 
to enable you to edit the wrong line, just press 
[ENTER], or [I] — for exit — and the machine will 
drop out of edit mode. Now type EDIT 
followed by the correct line number, then 

[enter!. 



Once the correct line is ready to be edited, 
there is a range of commands which you can 
give the editor — and it's at this point that the 
confusion can start. The commands are very 
largely single keystrokes, or numbers with 
single keystrokes. 

In the example given above, you want to 
extend the line by one bracket. Just tap [X] — 
eXtend — and the cursor will jump to the end 




GETTING THE MOST FROM THE 

DRAGON/TANDY EDITOR 



STARTING EDITING 



LEAVING EDIT MODE 



CHANGING CHARACTERS 



INSERTING CHARACTERS 



DELETING CHARACTERS 



EXTENDING LINES 



CUTTING OFF LINES 



SEARCHING FOR CHARACTERS 



of the line, something like this: 

20X = RND(1 
20X = RND(1 

You can now type the missing bracket, and 
tap |ENTER| to take you out of Edit mode. 

A more complicated case is when you want 
to insert a number in a line like this: 

50X = 0:Y = 0:W = 363 

EDIT Line 50. This displays the line number 
and the flashing cursor on the screen, and you 
now have to find the position where the 
character or characters have to be inserted. 
You can move the cursor in three ways. Either 
tap the space bar until the cursor appears at 
the right position; or tell the machine how 
many spaces to move the cursor by typing the 
number of moves and tapping the space bar; 
or you can use S to tell the machine to Search 
for the first occurrence of a particular 
character. 

In Line 50, let's say you left out a 2— X 
should be equal to 20. The cursor needs to be 
positioned over the zero. Either tap the space 
bar twice, or type 2 | SPACE | , or S0— the 
cursor will appear over the right place. Now 
tell the machine that you want to insert. Type 
I for Insert and it will allow you to make your 
additions. The additions are typed normally, 
followed by jENTER I if you don't want to make 
any more alterations. 

On the other hand, if you have a further 
error, say if Y should have been equal to 1 00, 
you will want to stay in edit mode — but you 
can't move the cursor until the insert is 
cancelled. Type ISHIFTI t and you will be able 
to move the cursor forward using the space 
bar without a number of useless spaces ap- 
pearing. Move the cursor to the second zero 
(using one of the three methods) and tap \\\. 
You can now add the missing 10. 

Sometimes you'll want to change things 
rather than add to them. Here's another short 
example. 

70 PRINT "SGEVE WOZNIAK" 

EDIT the line, and position the cursor over the 
offending G. Now press [C] — Change — and 
you can change the letter under the cursor. If 
you want to change more than one letter you 



can type a number before [5J. If you want to 
change three consecutive letters, for example, 
you'd type 3C. 

Deleting a letter, or series of letters is easy, 
too. Make sure you are in edit mode, position 
the cursor over the letter 'you wish to delete 
and type(F|. The letter will disappear, and the 
space will be closed up. You can delete a string 
of letters by typing the number of letters you 
wish to delete followed by QTj — e.g. 6D will 
delete SGEVE and the following space if the 
cursor is put over the S. 

Another problem might be a line which is 
too long, such as this one: 

90 X = 89:Y=76:PRINT "TIME FLYS LIKE AN 
ARROW, FRUIT FLIES LIKE A BANANA" 

It would be quite understandable if you 
wanted to rid your program of the PRINT 
statement! Go into Edit mode, and move the 
cursor to where you want to delete from. 
Type [R] — Hack — and the rest of the line will 
disappear. The machine will be left in Insert 
mode, so you can either add a different ending 
to the line, or press j ENTER U 

There is another way of removing the end 
of aline, using [K] — Kill. [K], alone, will kill up 
to the end of a line, whilst if you type 3KD, the 
line will be killed up until the third D. 

When you have been doing a number of 
alterations to a line, it's sometimes helpful to 
know how the line stands — typing [L] will list 
the current state of the line. 

If you've made a mistake with your editing, 
you can return to the line's original state by 
typing [A]. E] does exactly the same thing, but 
exits from Edit mode, too. 

If you want to practice with the editor, try 
putting this program right: 

10DEFFND(X) = *X'P 

20CLS 

30 PRINT"NU,MBER","CUBE" 

40 FOR A = 1 T0 13STEP2 

50 PRINTA,FNC 

60 NEXT 

It should finish looking like this: 

10DEFFNC(X)=X*X"X 

20CLS 

30PRINT"NUMBER'7'CUBE" 



40 FOR A = 1 TO 13 

50 PRINTA,FNC(A) 
60 NEXT 

Altering the program could involve using 
nearly all of the EDITing commands. Here's 
one solution to the problem that you might 
like to try out on your machine: 



EDIT 10 SD CC 4SPACEl lX fSHirTl TSP 

CX ENTER 
EDIT 30 S,D ENT ER 
EDIT 40 4 |SPACE] H ENTER 
EDIT 50 X(A) ENTER 



Summary of 

B 

\C\ character 
n [C] characters 



[S] character 
n [S] character 

DO 

n O character 
n space 

n «— 
shift T 



ENTER 



s 

1 



EDIT commands 

Lists the current state of 
the line 

Changes character 
Changes the next n 
characters. Value of n 
must be keyed 
Inserts characters 
Deletes character 
Deletes n characters 
Hacks — deletes — rest of 
line, and goes into 
Insert mode 
Extends the line, and 
goes into Insert 
Searches for first occur- 
rence of character 
Searches for nth occur- 
rence of character 
Kills as far as nth 
occurrence of character 
Kills — deletes — as far as 
nth character 
Advances the cursor by 
n spaces — the default is 
one space 

Backspaces n spaces 
Returns to Edit mode 
from Insert mode 
Leaves Edit and Insert 
modes 

Leaves Editor 
Returns to original state 
Returns line to original 
state and leaves Editor 
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To complete the game of Pontoon, 
you have to program the computer 
to take its turn. In addition, there's a 
description of the rules in case you 
are not familiar with the game 



Before you start on the remainder of the 
programming, it's worth a recap on the rules 
of the game. 

Pontoon is played with a standard 52-card 
pack of playing cards. The cards from 2 to 10 
count as face value, the picture cards count as 
ten and ace counts as 1 or 1 1 , according to the 
needs of the player. In this game, the com- 
puter keeps track of the total for you. 

The game is usually played with money, or 
chips, but in this computer version the com- 
puter needs to be programmed to hold the 
score in imaginary chips — more unscrupulous 
programmers could make the machine less 
than honest with the chips! The computer 
will be programmed to play as banker at all 
times and look after the deal. 



At the start of the game, the cards are 
shuffled and two cards are dealt, face down. 
The screen display will show the player's card 
face up, but the program has been designed so 
that the machine doesn't know what cards the 
player is holding. The player must now lay a 
bet on this first card, before another card is 
dealt to both the player and the dealer. 

The object of the game is to finish with a 
better hand than the banker's — that is, a 
higher total value. A hand which adds up to 
over 21 is bust, and loses. A hand with a score 
between 16 and 21 beats the banker only if the 
machine is holding a lower hand, or busts. 
There are two special hands — pontoon, which 
consists of an ace and a ten or picture card, 
adding up to 21 in two cards; and a five-card 



trick, which is any hand of five cards which 
total 21 or less. The player's pontoon beats 
anything held by the banker, except pontoon 
itself. A five-card trick will also beat anything 
held by the banker, except pontoon and 
another five-card trick. 



HOW THE PROGRAM WORKS 



After the player has received a second card, 
the program checks if pontoon is being held. 
If it isn't, there are three options which may 
be open to the player. Firstly, if the player has 
cards totalling 16 or over, and is satisfied with 
the cards, he may elect to 'stick'. The turn will 
end, and the game proceeds to the banker's 
play. Secondly, if the total is below 16, or the 
player isn't satisfied with the total, more cards 
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RULES FOR COMPUTER AND 



NORMAL PONTOON 



PLAYING COMPUTER PONTOON 
HOW THE PROGRAM WORKS 



THE CHIPS 



MAKING YOUR COMPUTER 

BEHAVE LIKE A HUMAN 

SENSIBLE DECISIONS FOR 

THE COMPUTER 

WINNING AND LOSING 



may be acquired by either 'twisting' or 
'buying'. In normal pontoon, buying a card 
entails the player placing another stake equal 
to the original one. In exchanges the banker 
deals the card face down. In the computer 
version, there is no distinction made between 
cards being dealt face up and face down, so 
the card appears at the side of the previous 
cards. Twisting doesn't entail the player 
adding to the stake, and in a game with real 
cards, the card would be dealt face up — here it 
makes no difference. The player cannot buy 
after twisting, and if trying for the last card of 
a five-card trick, the player must twist. The 
program checks after each card that the 
player, or banker, hasn't exceeded a total of 2 1 
and therefore gone bust. 



If the player has bust, the banker takes all 
the stake, and so the computer doesn't bother 
with its play. Otherwise, the banker turns the 
two cards over and has to decide whether to 
stick, or deal more cards. Pontoon at this stage 
is an automatic win and no more cards are 
dealt. If there isn't a pontoon, the banker will 
carry on dealing extra cards until satisfied 
with the total, or a five-card trick is reached, 
or the hand busts. 

If the banker sticks at a number below 21, 
and hasn't accumulated a five-card trick, a 
message appears on the screen: DEALER 
CALLS ... a number one larger than the 
score on the cards. If the score is 21, the 
message PONTOONS OR FIVE-CARD 
TRICKS ONLY, is displayed. If the banker 



gets a five-card trick, the player is told 
PONTOONS ONLY. In a normal game, the 
players would then have to declare their 
hands to the banker in the event of a win, but 
in this game, of course, the computer is 
already holding the player's score. 

If the player has scored a number equal to 
the announced score, he wins, but if he has 
less, loses his stake. When the player wins, the 
banker matches his stake, so that the player 
receives twice the total stake money. Unlike 
some sets of rules, no extra chips are paid on 
five-card tricks and pontoons. 

Unlike the normal rules, the deal cannot 
pass to the player but must remain with the 
computer — in normal play the bank passes on 
when pontoon is scored. Here, the computer 
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is always banker, so it has an advantage at all 
times during the game — the banker always 
has an advantage in normal Pontoon, too. The 
player, then, has the difficult task of breaking 
the bank — which here means accumulating 
more than 1,000 chips — to win. The player 
starts the game having 100 chips, and must 
not lose them all, or will have lost the entire 
game. 



Load in the last two parts of the program then 

type in these lines for the complete pontoon 
game: 

2500 PAUSE 50 

251 LET DPF = B: LET AF = B: LET X = C: 

LETY = 10 
2520 FOR J = C TO 2 
2530 LETZ = 0{J): G0SUB 5500 
2540iFVA>10THENLETVA = 10 
2545 FOR K=C TO 2: LET W(K) = W(K)+VA: 

NEXTK 



2546 IF VA= C AND AF= B THEN LET 

W(2) = W(2) + 10:LETAF = C 
2550 LET X = X + 6: NEXT J 
2560 IF W{2) = 21 THEN PRINT PAPER 2; INK 

7;AT 14,18; "□ PONTOON! □"; AT 15,17; 

"DDEALER WINSD": LET DPF=C: 

GOTO 2000 
2600 IF PF = C THEN GOTO 2720 
2610 PAUSE 75 
2630 IF W(C) >21 THEN PRINT PAPER C; INK 

7;AT 21, B; "DDEALER BUSTID";: GOTO 

2740 
2635 IF W(2)>21 THEN LET W(2) = W(C) 
2640 IF W(2) < 16 THEN GOTO 2800 
2650 IF FF = C THEN GOTO 2800 
2660 LET PR = (W(2)— 8)/13 

2670 if pr<rnd then goto 2800 
2700ifw(2}>21 then let w(2) = w(c) 
2710 if w(2) = 21 then print at 20,b; 
"dealer pays pontoons 
anddddddddd five-card 
tricks only": goto 2000 
2720 print paper 2;at 21, b; "dealer 



PLAYS D";W{2) + C; 
2725 IF S(2) >21 THEN LET S(2) = S(C) 
2730 IF W(2) > =S{2) THEN PRINT PAPER 2; 

"DAND WINSD": GOTO 2000 
2740 PRINT PAPER 2;"D - YOU WIND": 

LET CP = CP + BET*2: GOTO 2000 
2800 LETZ = C(CC): GOSUB 5500 
2805 IF VA>10 THEN LETVA = 10 
2810FORK = CTO2:LETW(K)=W(K)+VA: 

NEXTK 
2820 IF VA=C AND AF= B THEN LET 

W(2)=W(2) + 10:LETAF = C 
2822 IF W(1) <22 AND X=25 THEN PRINT 

PAPER 2; INK 7;AT21,B;"D FIVE-CARD 

TRICK! D": GOTO 2000 
2825 GOSUB 7*000 
2830 LET X = X + 6: GOTO 261 

After a one-second pause in Line 2500, the 
program starts on the dealer's turn. Line 2510 
sets the dealer pontoon flag, and the ace flag 
to zero, and sets up the coordinates of the 
corner of the dealer's first card. 
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THE DEAL 



The two previously stored cards are dealt by 
the FOR ... NEXT loop between Lines 2520 
and 2550. Line 2530 displays the card. Line 
2540 sets the value of the picture cards to ten 
before Line 2545 adds the dealt card to the run- 
ning total — two totals in case there's an ace pre- 
sent. Line 2546 adds ten to W(2) if one of the 
cards is an ace and also sets the ace flag. The 
next card's position is adjusted in Line 2550. 

Line 2560 checks for a pontoon and an- 
nounces that the dealer wins if there is one. 
The dealer pontoon flag is set. If the player 
has pontoon — Line 2600 — then the program 
jumps to the routine which handles the 
outcomes — who's holding what, and who's 
won. 

Following a pause in Line 2610, Line 2630 
checks if the dealer holds more than 21. The 
message DEALER BUST! appears if the 
machine is holding more than 21. Line 2635 
checks if the higher of the two totals — when 




an ace is present — has exceeded 21. The 
program then concentrates on the lower of the 
two totals. If the dealer holds less than 16, 
another card is dealt by Line 2800. 



ANOTHER CARD? 



Lines 2660 and 2670 decide if the dealer 
wants another card. This is not done accord- 
ing to a set rule. It's not a good idea to impose 
a strict limit on when the dealer will stick, 
because the player will soon understand 
exactly what needs to be done to beat the 
machine. Instead, some kind of random factor 
has to be introduced (as is done here), so that 
it's impossible to predict at what number the 
machine will stick. 

When trying to write this kind of routine 
the problem is that you must make the 
computer behave a little like a human player. 
Think how you would play the game — you 
would be less likely to ask for another card if 
you were holding 20 than if you were holding 
16, because the odds against busting are far 
worse. By comparing PR with a random 
number, there is both a random factor and the 
correct weighting according to the score being 
held by the dealer. 



THE TOTAL SCORE 



Line 2700 swaps W(2) for W(1) if W{2) 
exceeds 21, If the dealer gets 21, the message 
DEALER PLAYS PONTOONS AND 
FIVE-CARD TRICKS ONLY is displayed 
by Line 2710. If the dealer gets a score below 
21, Line 2720 displays DEALER PLAYS a 
figure one larger than the actual score. 

Line 2730 compares the dealer's score with 
the player's score. If the dealer wins, Line 
2730 displays a message, but if the player 
wins, Line 2740 displays a message. If the 
player wins, the chip total is added to in Line 
2740. 

The final section of the program — Lines 
2800 to 2830 — is concerned with giving the 
dealer cards from the pack. 

Line 2805 sets the value of the picture 
cards to ten. The value of the card is added to 
W(1 ) and W(2) in Line 2810. Adjustments for 
an ace are made in Line 2820, before Line 
2822 checks for a five-card trick. The card 
pointer is adjusted by calling the subroutine 
at Line 7000, and the next card's position is 
calculated by Line 2830. 



8BKHI 



Now add these lines to your pontoon 
program. They are mainly concerned with the 
banker's turn: 

390IFPL = 2AND{TU = 21 0R(TU + 
T3 = 21ANDCT(1) =0))THEN 750 

410 IF PL = 2 THEN 710 



710 FOR DE = 1 TO500:NEXTDE 

720 IF NU = 2 ANDT(1)>21 THEN 800 

730 IF RND{1)<(21 -TU)/13 OR TU<16 

0RCT(1) = 1 THEN 510 
740IFT3o0ANDRND(1)<(21- 

(TU+T3))/13 THEN 510 
750 PRINT "BHHI'LL STICK. . .": 

GOTO 800 
780 IF PL=2 THEN S1$ = "l": 

S2$ = "MY" 
800 T(PL) = TU:IF TU + T3 < 22 AND 

TU + T3>TUTHENT(PL)=TU + T3 
810 IF PL=1 OR (PL = 2 AND CT(2) = 1) 

THEN 840 
820 IF T(2) <21 THEN PRINT 

"gyai DEALER CALLS";T(2) + 1 
830 IFT(2) = 21ANDPO{2) = 0THEN 

PRINT"@HHI|P0NT0QNS OR FIVE- 
CARD TRICKS ONLY!" 
840 FOR DE = 1 TO 1000'PLNEXT DE:IF 

PL = 1 AND T(1)>21 THEN 860 
850 NEXT PL 
860 CH$ = "CHIPS":IFTB = 1 THEN 

CH$="CHIP" 
870IFCT(2) = 1AND(PO(1) = 0OR 

CT(1) = 1)THENPRINT"rjU 

YOU'VE L0ST[i"TB;CH$: 

GOTO900 
875 IF(CT(1) = 1 0RP0(1) = 1)AND 

PO(2) = THEN 890 
880IF(T{2)<22ANDT(2) = >T(1)) 

0RT(1)>21THENPRINT"QU 

YOU'VE LOST!1"TB;CH$:GOTO900 
890 PRINT"E3H YOU'VE W0N[i"TB*2; 

CH$:MU = MU+TB*2 
9001FMU<1 OR MU>999THEN PRINT 

"HAND THE GAME!";GOTO930 
910 PRINT "aa" E 2$:F0RDE = 1T0 

3000:NEXT:IFPO(1) = 1 0RP0{2) = 1 

THEN 60 
920 GOTO 760 
930 PRINT "HHHHANOTHER GO. 

(Y/N)?" 
940 GET A$:IFA$ = "Y" THEN RUN 
950IFA$o"N"THEN940 
960 PRINT "□"rEND 

PL2 is player 2 — the banker. If the banker has 
21 he will decide to stick. Line 390, then, 
checks whether the computer is holding 21, 
and if so jumps to Line 750 which announces 
I'LL STICK. Line 410 makes the computer 
miss out the player's turn lines. 

Line 710 is the start of the computer's turn 
proper. There's a pause before a series of 
checks. Line 720 checks for two aces, whilst 
Line 730 decides if the computer wants to 
take another card. If the running total is less 
than 16, or if the player has already ac- 
cumulated a five-card trick the machine must 
take another card. 
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TO STICK OR NOT TO STICKS 



The first part of the line — the part using the 
random mathematical expression — is quite 
interesting. It's there to make the computer 
behave something like a human player. The 
easiest way to make the computer play would 
be to make it always stick at the same 
number — say, 19. The problem is that the 
player will soon realise how to beat the 
machine, and will always try to beat 19. By 
incorporating the randomness into the I F . . . 
THEN, the computer becomes impossible to 
predict, but at the same time it should be 
stopped from twisting too often at higher 
scores which would make it bust in too many 
cases. By subtracting TU from 21, dividing by 
13 and then comparing with the random 
number, the machine can be made more likely 
to twist at 16 than 20. 



AN ACE IS DEALT 



Line 740 does a similar job to Line 730, 
but looks after the case when an ace has been 
dealt. If neither of the two lines makes the 
machine receive another card, Line 750 tells 
the player that the machine is sticking, and 
jumps to Line 800. 

S1$ and S2$ are changed so that they are 
right for the machine — player 2, remember — 
by Line 780. 

After either player has stuck, Line 800 
makes sure that, if an ace has been dealt, the 
score on which play was halted is the higher 
of the two alternatives. If it is the player's 
turn, or the computer has a five-card trick, 
the program uses Line 860 to set CH$ to 
CHIPS or CHIP. Line 850 closes the FOR . . . 
NEXT loop which you set up in Line 760 in the 
previous part of Games Programming. 



WIN OR LOSE 



If the player has lost, Line 870 displays 
how many chips have been forfeited. If the 
player has won, Line 875 makes the program 
jump to Line 890 which tells the player that 
he has won, and calculates how many chips 
are now being held. Finally, Line 880 is the 
other condition where the player loses. If the 
player loses or wins, Line 900 checks if the 
number of chips have dropped below 1, or 
gone above 1,000, and if it has, announces 
AND THE GAME! Next, Line 930 asks if 
another game is wanted — Lines 930 to 960 
are just an 'another go?' routine. 

If the player or the machine has scored a 
pontoon, Line 910 ensures that the cards are 
shuffled ready for the next hand. If no 
pontoon is being held, the program doesn't 
shuffle the cards, and the top two are dealt by 
returning to Line 760. 



There's very little now to add to the Acorn 
program: 

250 IF M/2 + 2>P*T THEN PRINT 

"YOU HAVED";:VDU 67,72,69,65, 

84,69,68,1 3,1 0:ENO 
330 FIN = N:F = TT:TT = 0:TT2 = 0: 

N = 0:BF = 0:TP = 100:PP = 100 
350 E = 
360 PROCTWISTFOR T=1 TO 2000: 

NEXLPROCTWIST 
370IF((RND{1)>(21-TT)/13ANDTT>15) 

OR (F = 21 AND FIN = 2)) AND 

N0T(FIN = 5 AND F<22)ORE<>0 

THEN 440 
380 REPEAT 

390 CLS:PRINT'TVE GOTO ";TT 
400 FOR T = 1 TO 2000: NEXT 
410PROCTWIST 
420 IF FIN = 5 AND F<22 THEN UNTIL 

(N = 5ORTT>21):GOTO440 
430 UNTIL (RND(1)>(21 -TT)/13 AND 

TT>15)ORE<>0 
440 CLS:PRlNT"l'VE G0TLT';TT 
450 IF E = 2 THEN PRINT'TVE BUST" 
460 IF E = 3 THEN PRINT"'P0NT00N" 
470 PR0CSC0RE 
540 IF (F = 21 AND FIN = 2) OR (N = 2AND 

TT = 21) THEN 260 
1220DEFPROCSCORE 
1230 IF FIN = 2 AND F = 21 ANDTT<>21 

AND N<>2 THEN 1300 
1240 IF FIN = 5 AND F<22AND N = 5AND 

TT< 22 THEN 1280 
1250 IF FIN = 5 AND F<22AND NOT (N = 5 

OR (N = 2ANDTT = 21)) THEN 1300 
1260 IF F<22 AND F>TT THEN 1300 
1270IFTT>21 AND F< 22 THEN 1300 
1280 PRINT'YOU L0STD";BET; 

"□CHIPS" 
1290 GOTO 1310 
1300 PRINT-WELL DONE YOU WON": 

M = M + BET"2 
1310 ENDPROC 

Line 250 is a bit of fun to stop the player 
tampering with the amount of chips given at 
the beginning of the program. 



THE COMPUTER'S GO 



Line 330 sets up some variables and clears 
some others which were used during the 
player's turn. Line 360 turns the dealer's two 
cards over. Line 370 decides if the dealer 
should ask for another card. The line itself is 
quite interesting because the random ex- 
pression enables the computer to play some- 
thing like a human. 

The easiest way for you to program the 
computer's turn would be to say that the 




computer will stick at any number over 19, for 
example. The snag with this is that the player 
will soon understand what the computer is 
doing and will be able to beat it — or at least, 
know how to beat it. Introducing the random- 
ness means that the computer becomes unpre- 
dictable, but that doesn't mean that it will 
play stupidly. By comparing 21 — TT with the 
random number, the computer can be made 
less likely to stick at 16 than 20, and will 
behave something like a human player, some- 
times making some rash twists. 

Line 340 also checks that the dealer has 
over 1 5 before allowing a stick, also that there 
isn't a pontoon or that E indicates a five-card 
trick or bust. If the machine doesn't stick, the 
program continues to the REPEAT ... UNTIL 
loop between Lines 380 and 430. 

First, the dealer's score is displayed. 
There's a pause before the next card is turned 
over by Line 410. Five-card tricks are 
checked by Line 420. A random decision like 
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that in Line 370 is made again in Line 430. 
Messages are displayed on screen by Lines 
440 to 460 as they are needed. Line 470 calls 
the scoring PROCedure, which is to be found 
between Lines 1220 and 1310. 



LTHT 



Before you add these lines, delete : GOTO 190 
from Line 650. 

500 GOSUB4000:GOTO540 
510CX = CX + 50:GOSUB3500: 

NC = NC + 1 
520FORK = 1TO1700:NEXT 
530IFDL>21 THEN 620 
540DT=DL+10'(DAAND(DL<12)): 

I FDT = 21 AND NC = 2 THEN CLS: 

PRINT" □ DEALER HAS PONTOON": 

PF = 1:GOTO610 
550 IF NC = 5 THENPRINT" □ DEALER 

HASA5-CARDTRICK":GOTO610 
560 R = 20- DT:IF RND(100) < R'R'R 



ORDT<16 0RP5 = 1 THEN510 
570 CLS:IF P5 = 1 THENPRINT 

"□YOU HAVE A 5-CARD TRICK" ELSE 

PRINT "□ YOU HAVE";PT 
580 PRINT" □ DEALER PLAYS";: 

1FDT<21 THEN PRINTDT + 1 ELSE 

PRINT"D PONTOONS ANDD □ □ 

□ □ □□ 5-CARD TRICKS ONLY" 
590 FORK = 1TO500:NEXT:IF P5 = l THEN 

630 
600IFDT<PTTHEN630 
610 PRINT" □ DEALER WINS": 

GOTO 690 
620 CLS:PRINT"D DEALER BUST. YOU 

WIN":GOTO 640 
630 PRINT"DYOU BEAT THE DEALER" 
640MN = MN + 2*BT:GOTO700 
660GOSUB4000:IFDL = 11 THEN 

P^INT:PRINT"DBUT SO DOES THE 

DEALER":GOTO610 
670 GOTO 630 
690 PRINT:IFMN<1 THENPRINT 



"□YOU'VE LOST ALL YOUR 

MONEY":GOTO790 
700 IFPF = 1 THENPRINT:PRINT 

"□DEALER IS SHUFFLING THE 

CARDSDDD FOLLOWING THE 

PONTOON": GOSUB 1500: GOTO 750 
710 NF = N-1:IFNA>N THEN NF = N + 51 
720FORX = NFTONA + 1 STEP — 1: 

Q=RND(X-NA) + NA-1:T = SQ(X): 

SQ(X) = SQ(Q):SG(Q)=T:NEXT: 

IF NA>N THEN 740 
730 FORX = 0TO9:SQ(X + 52) = SQ{X): 

MFXT:GOTO750 
740 FORX = 0TO9:SQ(X) = SQ(X + 52): 

NEXT 
790 PRINT-PRINT" □ DO YOU WANT 

ANOTHER GO (Y/N)?" 
800 A$ = INKEY$:IFA$o"Y" AND 

A$o"N" THEN 800 
810 IF A$ = "Y" THEN CLS:GOTO 170 
820 END 
3500 SCREEN1,1:G0SUB1 000: 



603 



Illllllll 
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GOSUB2000:IF NM = 1 THEN DA=1 
3510 IF NM>10 THEN DL=DL + 10 ELSE 

DL=DL + NM 
3520 RETURN 
4000 NN = N:N = D1:CX = 6:CY = 108: 

GOSUB3500 
4010 N = D2:CX = 56:GOSUB3500: N = NN 
4020 FORK = 1TO2000:NEXT:NC = 2: 

RETURN 

At this stage in the game, the player's cards 
will be arranged across the screen. In ad- 
dition, there will be the backs of the dealer's 
cards. The first part of the dealer's go, then, 
will be for the two cards to be turned over — 
Line 500 calls the subroutine between Lines 
4000 and 4020. To turn the cards over, the 
subroutines concerned with printing front 
faces are called — initially by calling the one 
starting at 3500, which turns the high reso- 
lution screen on and calculates the running 
total. The other card is displayed by calling 
the subroutine again, but this time after line 
4010 has changed the X coordinate of the 
card. The card number is again adjusted. The 
subroutine ends at Line 4020. 

Line 510 changes the X coordinate again 
and calls the subroutine at Line 3500. The 
dealer gets the next card. Line 520 is a pause, 
before Line 530 checks if the dealer has 
bust — Line 620 tells the player that the dealer 
has bust. Line 540 checks if the dealer has 



pontoon and sets the pontoon flag if he has — a 
message appears on the text screen, too. Line 
550 detects a five-card trick. 



TO STICK OR NOT TO STICK: 



Probably the most interesting part of the 
program is in Line 560. The line is concerned 
with how the computer decides when to ask 
for another card. It would be all too easy to 
program a simple strategy into the machine so 
that it always sticks when it reaches, say, 19 or 
above, but it would be so easy to beat because 
the player would soon understand the way 
that the computer is playing. Instead, some 
kind of randomness needs to be built into the 
program so that the computer becomes un- 
predictable. At the same time you must be 
careful not to make its tactics suicidal — it 
shouldn't twist too often when at 20 . 

A variable, R, is set up in Line 560. The 
total is subtracted from 20. Next, a random 
number between 1 and 100 is chosen, and 
compared with R*R*R. If the random number 
is less, or the running total is less, than 16, or 
the player already has a five-card trick, then 
the dealer asks for another card. The way R 
has been chosen means that the chance of 
asking for another card decreases as the 
running total increases — only very seldom 
will the machine ask for another card when at 
19, but is most likely to ask for another card 
when at 16.- 



THE SCORE 



Line 570 displays the player's score, or 
indicates a five-card trick. Line 580 displays 
the dealer's play, or announces PONTOONS 
AND FIVE-CARD TRICKS ONLY. 

If the player is holding a five-card trick and 
the dealer isn't, Line 590 tells the player 
YOU BEAT THE DEALER, after a short 
pause. Similarly, Line 600 compares the 
dealer's and player's scores and displays the 
outcome using Line 610 or Line 630. 

If the player has won, Line 640 adds what 
the player has won to the chips he already has. 
If the player or dealer has won with a 
pontoon, the pack has to be shuffled. Line 
700 checks the pontoon flag. 

Line 660 follows the announcement that 
the player has pontoon. It is the case when 
both the dealer and the player have pontoon. 
The outcome is that the dealer wins — Line 
610. Line 670 sends the program back to Line 
630, YOU BEAT THE DEALER. 

If the number of chips has fallen below 
zero, Line 690 displays the message YOU'VE 
LOST ALL YOUR MONEY. 

If the pontoon flag has been set, Line 700 
tells the player of the pontoon and shuffles the 
cards. Lines 710 to 740 are a small shuffle to 
simulate the dealer gathering up the cards. 

Finally, there's a 'Do you want another 
go?' routine from Line 790 to Line 820. 




CUMULATIVE INDEX 



An interim index will be published each week. There will be a complete index in the last issue of INPUT. 



Applications 

CAD 565-572, 573-577 

conversions program 520-527 
extend your typing 498-503 

ASCII codes 42CM21 

Assembler 
Dragon, Tandy AAQ-AAA 

Autorun 460-461 

Axes for graphs 

415-416, 47(W71 

B 

Barchart 470-476 

Bask programming 

bouncing ball graphics 

584-592 
Commodore 64 

graphics 420-421 

defining functions 578-583 
formatting 433-439 

making more of UDGs 

450-457, 484-491, 528-533 
plotting graphs 

413-419, 470-476 

protecting programs 458-463 

wireframe drawing 509-513 

wireframes in 3D 560-565 

Bootstrap programs 459-463 

Bug Tracing 477-483 

Bytes, saving 

Acorn 546-552, 593-595 



Cardgame graphics 534-540 
Cassette storage 504-505 

Character sets 

redefining 450-457 

Computer Aided Design, 

program 566-572, 573-577 
Control commands, 

in wordprocessing 545 



D 



Data storage 413 

Defining functions 578-583 

Disk drives 506-508 

Displays, improving 433-439 

Drawing in 3D 560-561 

Drop outs 504 

Duck shooting game 492-497 



Editing programs 

Commodore 64 



420 



Dragon 596-597 

Ellipse, drawing a 
Commodore 64, Dragon, 
Tandy, Vic 20 581 



FLASH command 

Spectrum 434 



Games programming 

adventures, planning your own 
422-427 
duck shooting game 492-497 
using joysticks 464-469 

pontoon game 535-540 

pontoon game — 2 553-559 

pontoon game — 3 598-604 

Graphics, CAD program 

566-572 

Graphics, ROM 

Commodore 64 420 

Graphs 413-419 

Grid, drawing a 5 1 2-5 1 3 



H 



Histograms and barcharts 

471M76 



Imperial to metric 

conversions 520-527 

Interest on savings 

program 583 

Inversing the screen 

ZXS1 432 

J 

Joysticks, 

duck shooting game 492-497 
in games 464-469 

interface, Electron 467-468 

JOYSTK 

Dragon, Tandy 468-469 

Jungle picture 485-491 

L 

Legends 

for graphs 416 

M 

Machine code programming 

Acorn program squeezer 

546-552, 593-595 



animation 

Vic 20, ZK81 428-432 
assembler 

Dragon, Tandy 430-444 

Spectrum 477-482 
Memory 

saving, Acorn 546-552 

SAVEing on tape 532-533 

Microdrives 505 

Monitors and TVs 44S449 

Motion 

equations of 584-592 
Multicoloured background 490 



N 

Number keys 

redefining 



Q 



O 



On-board graphics 

Commodore 64 



450-457 



420 



Parameters for functions 

578-583 
Pie charts 474-476 

Peripherals 

data storage devices 504-508 
TVs and monitors 445-449 
Who needs wordprocessors? 

541-545 

Planning screen displays 

433-439 

Pontoon program 534-540 

Pontoon program — 2 553-559 

Pontoon program — 3 598-604 

PRINT 434-438 

Acorn, Commodore 64, 
Spectrum, Vic 20 434 

PRINT AT 
Acorn 434 

Spectrum 434, 436 

PRINT SPC 

Commodore 64, Vic 20 434-435 

PRINT TAB 

Acorn 434, 438 

Commodore 64, Vic 20 435 

Spectrum 434 

PRINT® 

Dragon, Tandy 435 

Program squeezer 

Acorn 546-552, 593-595 

Program symbols 

Commodore 64 _ 420 

Protecting programs 459-463 



Quote mode 

Commodore 64 



420 



Reverse graphics symbols 

Commodore 64 420 

ROM graphics 

Commodore 64 420 



Screen pictures 




from UDGs 


484-491 


Serial access 




tape systems 


505-506 


Speed POKE 




Dragon, Tandy 


444 


Spelling-checker 


543-544 


String functions 




Acorn, Spectrum 


581 


Stunt rider UDG, Vic 20 429 


Submarine UDG, Vic 20 430 


SYS 




Commodore 64, Vic 20 


463 


T 




Tape storage 


504-505 


Tokens 




Commodore 64 


421 


Trace program 




Spectrum 


477-483 


Commodore, Vic 20 


514-519 


TVs and monitors 


445-449 


Typing tutor part 4 


498-503 


u 




UDGs 




animals 484-491 


, 528-533 


creating extra 


450 


redefining numbers 


452-457 


SAVEing on tape 


532-533 


& high resolution graphics 531 


storing the data 


451-457 


User defined functions 






578-583 


V 




Virtual memory 


545 


Volatile storage 


504 


w 




Wireframe drawing, 




and colour 


512 


in 3 dimensions 


560-565 


Wordprocessing 


541-545 
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ONoui get things into PERSPECTIVE 
with WIREFRAME DRAWING 

CJFor really broad horizons, linking your 
computer to the world, via a MODEM 

LJ Understand more about hoiv a 
computer can CREATE AND USE FILES 

CJFor better adventure games, try a 
TEXT COMPRESSOR PROGRAM 

OPLUS . . . For SPECTRUM users, an 
automatic CONVERTER FOR 
MICRODRIVES 
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